open(SENDMAIL, '|/usr/sbin/sendmail -oi -t')
   or do{ unlink($outfile); diehtml("Can't fork for sendmail: $!\n")};

##</code><code>##

print SENDMAIL $msg
close SENDMAIL;


##</code><code>##

print SENDMAIL <<"EOF";


##</code><code>##

EOF
        close(SENDMAIL) or warn "sendmail didn't close nicely";