#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
print "<pre>\n";

foreach $key (sort keys(%ENV)) {
  print "$key = $ENV{$key}<br/>";
}
print "</pre>\n";


##</code><code>##

my $q = new CGI;
if ($q->param("URL")) { ... }