Net::SMTP
メモ
http://www.perldoc.jp/docs/modules/libnet-1.12/Net/SMTP.pod
http://www.bekkoame.ne.jp/~bero/docj/module_/05/Net_SMTP.html
http://member.nifty.ne.jp/hippo2000/perltips/perlmail.htm
そしてuse MIME::Entity;
これはMIME::Entityを使うだけで問題は解決しそう。