use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print $cgi->header;
warningsToBrowser(1);