use CGI::Carp qw( fatalsToBrowser );

##</code><code>##

BEGIN {
    sub carp_error {
        my $error_message = shift;
        my $cq = new CGI;
        print $cq->start_html( "Error" ),
              $cq->h1("Error"),
              $cq->p( "Sorry, the following error has occurred: " ),
              $cq->p( $cq->i( $error_message ) ),
              $cq->end_html;
    }
    CGI::Carp::set_message( \&carp_error );
}