Sendmail problem

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;