my $q = CGI->new(); #my $UserID = $ENV{"REMOTE_USER"}; my $UserID = $q->remote_user(); print $q->header(); if($UserID){ print "User:$UserID"; }