use CGI;
my $query = new CGI;
my $ref = $query->referer;
my $user = $query->remote_user;
my $addr = $query->remote_addr;
print $query->header(),$query->start_html(-title=>'Test');
print "referrer = $ref<br>remote user = $user<br>remote addr = $addr";
print $query->end_html();