sub mal { print "Content-type: text/html\n\n"; print "Sendmail problem\n"; print "\n"; print "

Mail is down

\n"; print "\n"; exit; } #### open (MAIL,"|$sendmail") || warn "&mal"; #### open (MAIL,"|$sendmail") || die &mal; #### open (MAIL,"|$sendmail") || &mal;