#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
foreach my $key (sort(keys(%ENV))) {
  print "$key = $ENV{$key}<br>\n";
}
print "ARGC = $#ARGV<br>\n";
print "ARGV = ";
foreach my $key (@ARGV) {
  print "$key ";
}
print "<br>\n";