Select Code to Download

if (open (SENDMAIL, "| $sendmailpath -t"))
{
...
  print SENDMAIL "\n"       ### Need a blank line between headers and 
+body!
  print SENDMAIL "This is a test e-mail.\n\n";
  close (SENDMAIL);