#!/usr/bin/perl
use strict;
use diagnostics;
use CGI;
$| = 1;
my $query=new CGI;
print $query->header("text/html")
print "About this server", "\n";
print "About this Server
", "\n";
print "
";
foreach $word (sort(keys(%ENV))) {
printf "%s:%s %s
\n", $word, " " x (28-length($word)), $ENV{$word};
}
exit (0);