#!c:\perl\bin\perl.exe -w

use CGI;
my $username = CGI::remote_user();
print "Content-type: text/html\n\n";
print "<h3>Hello $username</h3>";