use CGI::Carp qw(fatalsToBrowser);

BEGIN {
    sub error_handler {
    my &#36message = shift;
    return "Da ist was schiefgelaufen: &#36message";
    }
setmessage(&error_handler);
}