foreach my $name ($query->param()) {
   $ENV{$name} = $query->param($name);
}