#!/opt/bin/perl -Tw use CGI qw(-debug :standard); use CGI::Carp 'fatalsToBrowser'; use strict; $| = 1; $\ = "\n"; print header; print ''; print ''; print ''; print ''; print 'CGI.pm test'; print ''; print ''; print "

output from $0

\n"; print "

warn():

\n"; warn("warning"); print "

die():

\n"; die("function die called"); print ''; print '';