Perl CGI Trick

Make Perl die statement generate HTML page

BEGIN {

$SIG{__DIE__} = sub {

my $msg = join( " ", @_ );

print STDOUT<<__eof__;

content-type: text/html

<HTML>

<HEAD>

<TITLE>CGI Script Error</TITLE>

</HEAD>

<H3 ALIGN=center>CGI Script Error</H3>

$msg

</BODY>

</HTML>

__eof__

exit( 0 );

}