open (MAIL, "| /usr/sbin/sendmail -t");
print MAIL <<EndMail;
To: user\@host.com
From: Mail Report
Subject: $subj
EndMail
print MAIL `This is a test.\n`;
print MAIL "\n.\n"; # A single period on its own line.
close MAIL;