use CGI::Carp qw(fatalsToBrowser set_message); BEGIN { sub error_handler { my $message = shift; print "Da ist was schiefgelaufen: $message"; } setmessage(\&error_handler); }