Perl script для Sendmail

#!/usr/bin/perl

open  (SENDMAIL, ">", "send.data");
print (SENDMAIL  "Subject: test\n\nHello, this is a test.\n.\n");
close (SENDMAIL);

`sendmail dima < send.data`;

`rm -f send.data`;