use CGI::Carp qw(fatalsToBrowser set_message); BEGIN { set_message( sub { my $msg = shift; # message for development server #print "

Server Error!

$msg
"; # message for production server print "

Server Error!

Please try again later

"; }); }