test.pl

#!/usr/bin/perl
use CGI;
my $query= new CGI;
print $query->header;
print "REMOTE_USER: ";
print $ENV{REMOTE_USER};