## Use the fabulous CGI.pm module is usually installed
use CGI;
my $C = CGI->new();

## create a code ref to the DIE event handler
$SIG{__DIE__} = \&my_die;

## create a sub to handle the dies

sub my_die {
    print $C->header,$C->start_html;
    print qq(<p>@_</p>);
    print $C->end_html;
}

##</code><code>##

$ ./my_script.cgi username=tenatious password=hideyho! age=1000 IQ=1

##</code><code>##

chmod o+x my_script.cgi