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