use strict;
use warnings;
use CGI;
my $q = CGI->new();
my $UserID = $ENV{"REMOTE_USER"};
print $q->header();

if($UserID){
	print "User:<b>$UserID</b>";
}