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; }