#!/usr/bin/perl
open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";
print SENDMAIL "From: John Doe <joe\@mail.ru>\n";
print SENDMAIL "To: Frank Smith <frank\@mail.ru\n";
print SENDMAIL "Reply-To: Frank Smith <frank\@mail.ru>\n";
print SENDMAIL "Subject: Test.\n\n";
print SENDMAIL "It's just test!!!";
close (SENDMAIL) or warn "sendmail didn't close nicely";

#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.mail.ru'); # Ваш сервер!
$smtp->mail('joe@mail.ru');
$smtp->to('frank@mail.ru');
$smtp->data();
$smtp->datasend("To: frank@mail.run");
$smtp->datasend("n");
$smtp->datasend("Hello ADMIN!!!!!! :-)n");
$smtp->dataend();
$smtp->quit;