#!/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?<br>\n";
    print $q->textfield(-name=>'username');    
    print $q->endform;    
}

print $q->end_html();
exit();