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