Added hello_host.cgi, a trivial HTTP echoer

cgi-bin/hello_host.cgi

@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+
+use Sys::Hostname;
+
+sub mygetstrtime {
+	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
+	$year += 1900; $mon += 1;
+	return sprintf "%02d/%02d/%04d %02d:%02d:%02d", $mon, $mday, $year, $hour, $min, $sec;
+}
+
+print "Content-type: text/plain; charset=utf-8\n";
+print "Pragma: no-cache\n";
+print "Cache-Control: no-cache\n\n";
+
+my $ip = $ENV{'REMOTE_ADDR'};
+my $port = $ENV{'REMOTE_PORT'};
+my $myip = $ENV{'SERVER_ADDR'};
+my $myport = $ENV{'SERVER_PORT'};
+my $myhostname = hostname;
+my $mylocaltime = &mygetstrtime;
+
+print "Client:\n";
+print "  $ip:$port\n";
+print "\n";
+print "Server:\n";
+print "  $myip:$myport\n";
+print "  $myhostname:$myport\n";
+print "  $mylocaltime\n";
+