Code:
sub mail_report {
$Mailer = '/usr/sbin/sendmail joe@somewhere.net';
open MAIL,"|$Mailer";
print MAIL "Subject: $X connection attempt \n\n";#two newlines after subject
open(MESSAGE, "<", "$outdir$X") or die "$!";
print MAIL <MESSAGE>;
close MESSAGE;
close MAIL;
} #End sub mail_report
