Re^2: Perl Programmers Don't Die...

[twotone]

:-)

In all of my cgi scripts I use a little custom die subroutine so none of them just die, they die nicely.

sub dienice {
    print "Content-type: text/html\n\n" unless $header_printed;
    $header_printed = 1;
    my(@msg) = @_;
    print "<h2>Attention:</h2>\n";
    print join("<br>\n",@msg);
    exit;
}