#!/Perl/bin/perl -w
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
# use strict;
use warnings;
print "Content-type: text/html\n\n";
warningsToBrowser(1);
$blah = 1;
print "No problemo\n";

##</code><code>##

#!/Perl/bin/perl -w
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use strict;
use warnings;
print "Content-type: text/html\n\n";
warningsToBrowser(1);
my $blah = 1;
print "No problemo\n";