use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

# print the header...

warningsToBrowser(1);