#!/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";