$mail_prog = "/usr/sbin/sendmail -t";
open(MAIL, "|$mail_prog -t");