email.pl

use Net::SMTP;

my $smtpSer = 'mailhost';
my $from = 'from@xxx.com';
my $to = 'to@xxx.com';
my $subject = 'Daily check the Pan INM release @'.`date /T`;
my $body = "";
open FILE, "< checkRelease.log"
     or die "Can't open the file: checkRelease.log! ($!)";
while (<FILE>) {
 $body = "$body$_";
}
close FILE;

$smtp = Net::SMTP->new($smtpSer);

$smtp->mail($ENV{USER});
$smtp->to($to);

$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("$body\n-Yourname");
$smtp->dataend();

$smtp->quit;