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