Скрипт для отправки почты через заданный smtp сервер :

#!/usr/bin/perl
use Net::SMTP;
my $ServerName = "smtp.mail.com"; # адрес smtp
my $RealNameFrom = "Oramain Server";
my $MailFrom = "sender\@domain.com";
my $RealNameTo = "Klim Samgin";
my $MailTo = "vpupkin\@microsoft.com";
#my $MailSubject = "Sudbject";
my $MailSubject = $ARGV[0];

$smtp = Net::SMTP->new($ServerName);
die "Couldn't connect to server" unless $smtp;
print $ARGV[1];
$smtp->mail( $MailFrom );
$smtp->to( $MailTo );
$smtp->data();
$smtp->datasend("To: $RealNameTo <$MailTo>\n");
$smtp->datasend("From: $RealNameFrom <$MailFrom>\n");
$smtp->datasend("Subject: $MailSubject\n\n");
while (defined($line = )) {
$smtp->datasend("$line");
}
$smtp->dataend();
$smtp->quit();