やっつけなメール送信

http://d.hatena.ne.jp/srkzhr/20080221/1203599466

「件名」はFromやTo:と同じヘッダフィールドに入るため、文字コード変換
だけではダメで、さらにMIMEエンコードしてやる必要があります。

特にパフォーマンスを期待しないやっつけ仕事のときは、めんどくさいのでnkf使ってる。

use IO::All;

my $subject = "件名";
my $body = "本文";

my $sendmail ="/usr/sbin/sendmail";

my $message = <<END_OF_MAIL;
To: hogefuga\@gmail.com
Subject: $subject

$body
END_OF_MAIL

$message > io("|nkf -j -m0 |$sendmail -t -oi");