#!/usr/bin/perl -Tw
use strict;
$|++;
use CGI;
my $q = new CGI;
$q->import_names('STUFF');
print $q->header(),
$q->start_html();
if ($STUFF::username eq 'rocky'){
print "Where's the moose?\n";
}
else{
print $q->startform();
print "Who goes there?
\n";
print $q->textfield(-name=>'username');
print $q->endform;
}
print $q->end_html();
exit();
####
200 OK
Date: Thu, 11 Apr 2002 16:21:23 GMT
Server: Microsoft-IIS/3.0
Content-Type: text/html; charset=ISO-8859-1
Client-Bad-Header-Line: Name "STUFF::username" used only once: possible typo at C:\inetsrv\path\to\files\test.cgi line 13.
Client-Date: Thu, 11 Apr 2002 16:21:22 GMT
Client-Peer: xxx.xxx.xxx.xxx:80
Title: Untitled Document
####
Untitled Document
Use of uninitialized value in string eq at C:\inetsrv\path\to\files\test.cgi line 13.