А можно и так.
$mailprog="/usr/sbin/sendmail"; #ежели оно, конечно, здеся находится
open(SENDMAIL, "|$mailprog $mailto");
print SENDMAIL "From: $me\\n";
print SENDMAIL "To: $mailto\\n";
print SENDMAIL "Subject: $subj\\n";
print SENDMAIL "Мессага\\n";
close(SENDMAIL);