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

##

# syntax error, near ")  print"
File 'Calvin:Cleanup At Startup:2852655'; Line 19
# Unmatched right bracket, at end of line
File 'Calvin:Cleanup At Startup:2852655'; Line 19
Content-type: text/html

Software error:
# Execution of Calvin:Cleanup At Startup:2852655 aborted due to compilation errors.
<\/CODE>

Please send mail to this site's webmaster for help.
# [Thu May 22 01:36:50 2003] Calvin:Cleanup At Startup:2852655: # Execution of Calvin:Cleanup At Startup:2852655 aborted due to compilation errors.