Select Code to Download

#!/usr/local/bin/perl

...
  print "$key = $ENV{$key}<br/>";
}
print "</pre>\n";

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