my $mail_cmd = '/usr/bin/sendmail -t';

open (MAIL, "|$mail_cmd") or Error('Mail Error',"Can't open SendMail<br>Error: $!");