print "Content-type: text/html\n\n";
 
  open(MAIL, "|/usr/sbin/sendmail -oi -t") or die print "Can't open sendmail: $!";
  print MAIL "To: Recipient name <franklinsmith\@alltel.net>\r\n";     
  print MAIL "From: Your name <support\@onlinepay.virtualave.net\r\n";
  print MAIL "Subject: Mailing with Perl\r\n";
  print MAIL "\r\nthis is easy.\r\n\r\n.\r\n";
  close(MAIL);   
  print "Message Sent";