>>712
sub myCreateTextFunction {} が本当にないからそのエラーが出るのは仕方ないね。
$attach_data に入れる値の用意ぐらい自分でしろということなんでしょう。

そこのサンプルは古風すぎるし Net::SMTP を使ってるサンプルで覚えるほうがいいよ。