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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

print SENDMAIL $msg
close SENDMAIL;

##</code><code>##

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

##</code><code>##

[root@devel3 root]# which sendmail
/usr/sbin/sendmail
[root@devel3 root]# /usr/sbin/sendmail -t
To: root@localhost

Hello Me!
.
[root@devel3 root]# tail /var/mail/root
Received: (from root@localhost)
        by devel3.XXXXXXXXXX.org (8.11.6/8.11.6) id h933ZZq18591;
        Fri, 3 Oct 2003 03:35:35 GMT
Date: Fri, 3 Oct 2003 03:35:35 GMT
From: root <root@devel3.XXXXXXXXX.org>
Message-Id: <200310030335.h933ZZq18591@devel3.XXXXXXXXX.org>
To: root@devel3.XXXXXXXXX.org

Hello Me!

[root@devel3 root]#