my $query=CGI->new();
my $user=$query->remote_user();

##</code><code>##

my $user=$ENV{'REMOTE_USER'};