1
2
3
4
5
6
7
8
9

use CGI::Carp qw(fatalsToBrowser);

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

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]