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

##</code><code>##

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