use CGI::Carp qw(set_die_handler);
BEGIN {
    sub handle_errors {
        my $msg = shift;
        print "Content-Type: text/html\n\n";
        print "$msg";
    }
    set_die_handler(\&handle_errors);
}