#!/usr/bin/perl
use CGI qw/:standard/;
use Data::Dumper;
print header, start_html;
my $user=$ENV{REMOTE_USER}; #Thats what Im looking for.
print "Logegd in as: $user<br>";        
print end_html;