Select Code to Download

$cgi->param(-name=>"ENV-$_",-value=> $ENV{$_} for keys %ENV;

foreach my $p ($cgi->param()) {
  if ($p =~ /^ENV-(.*)/) {
...
    $cgi->delete($p);
  }
}