use CGI::Carp qw(fatalsToBrowser set_message); use vars qw($DEBUGGING); BEGIN { $DEBUGGING = 1; my $error_handler = sub { my $message = shift; print "

Oooh I got an error

"; print $message if $DEBUGGING; } set_message($error_handler); }