Select Code to Download

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

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

TRUE or do{does not get done}
FALSE or do{does get done}

print SENDMAIL $msg
close SENDMAIL;

warn "Before SENDMAIL open\n";
open(SENDMAIL.....)
warn "After open\n";

[root@devel3 root]# which sendmail
/usr/sbin/sendmail
...
Hello Me!

[root@devel3 root]#