use CGI qw/:standard/;
foreach (param()) {
  $INPUT{$_}=param($_);
}