#!/usr/bin/perl print "Content-type: text/html", "\n\n"; print "", "\n"; 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};
}
print "

", "\n"; print "", "\n"; exti (0);