#!/usr/bin/perl /perl OR #!/usr/bin/perl OR #!/usr/local/bin/perl #use CGI::Carp qw(fatalsToBrowser); #use CGI; #$q = new CGI; #print $q->header(-type=>'text/html',-accept=>'*/*'); #print "Content-type: text/html\n\n"; print < END