#!/usr/bin/perl
print "Content-type: text/html\n\n";
$n = 0;
print "<tt>\n";
foreach $key(sort keys(%ENV)) {
   print "$key = $ENV{$key}<p>";
   @keys[$n] = $ENV{$key};
   $n++;
}
print qq~The remort port is $keys[15]~;