$cmd_mail="/usr/sbin/sendmail -t";
open (SENDMAIL, "|$cmd_mail") || die "ERROR: Can not run sendmail";
print SENDMAIL "MIME-Version: 1.0\n";
print SENDMAIL "Content-Type: text/plain; charset=\"koi8-r\"\n";
print SENDMAIL "Content-Transfer-Encoding: 8bit\n";
print SENDMAIL "To: $to_email\n";
print SENDMAIL "From: Nobody <nobody\@$localhost>\n";
print SENDMAIL "Subject: $subject\n";
print SENDMAIL $message . "\n";
close (SENDMAIL);

URL:
Обсуждается: http://www.opennet.me/tips/info/2.shtml