Added server-side username to output.

cgi-bin/hello_host.cgi

@@ -21,12 +21,13 @@ my $myip = $ENV{'SERVER_ADDR'};
 my $myport = $ENV{'SERVER_PORT'};
 my $myhostname = hostname;
 my $mylocaltime = &mygetstrtime;
+my $username = getpwuid( $< );
 
 print "Client:\n";
 print "  $ip:$port\n";
 print "\n";
 print "Server:\n";
 print "  $myip:$myport\n";
-print "  $myhostname:$myport\n";
+print "  $username\@$myhostname:$myport\n";
 print "  $mylocaltime\n";