$mailprog = '/usr/lib/sendmail';
sub send_mail {
   open (MAIL, "|$mailprog -t -oi");
   print MAIL "To: $toemail\n";
   print MAIL "From: $fromemail\n";
   print MAIL "Subject: $thistitle\n";
   # ...
   close MAIL;
}