#!/usr/local/bin/perl -w BEGIN { use CGI::Carp qw(fatalsToBrowser warningsToBrowser); } #die "This is a fatal error"; $first = "Hello"; #This should produce a warning print "Content-Type: text/html\n\n"; warningsToBrowser(1); print ""; print "Its a beautiful day in the neighborhood,"; print "a beautiful day in the neighborhood...
"; # Add a syntax error. if($second == "Hello") { print "How are ya\n"; } print "";