use CGI qw/:all/; use CGI::Carp /fatalsToBrowser warningsToBrowser/; my $var; print header; warningsToBrowser(1); print $var; # würde eine Warnung verursachen