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