use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
sub mailFatal
{
print "Content-type: text/html\n\n";
print "<html><head><title>Mail</title></head>\n";
print "<body bgcolor=\"white\">\n";
print "<center><strong><h2><font color=red>Mail Server is not availab
+le
at this time.</font></h2
></strong></center>\n";
print "<br><br><center>Email down</center>";
print "</body></html>\n";
exit;
}
open (MAIL,"|$sendmail") || mailFatal();
#sendmail stuff here
close MAIL || mailFatal();