sub die_nice { my $err = shift; $err =~ s/ at \S+ line \d+//g print "\n\n

Custom CGI Error

\n"; print "

$err

\n"; print "[script-specific error/dump info goes here]\n"; print "\n\n"; warningsToBrowser(1); }