#!c:/www/perl/bin/perl.exe
use strict;
use warnings;
use CGI::Carp('fatalsToBrowser');

$|=1;
print "Content-type: text/html\n\n";

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

print "<p>$user</p>";