foreach (keys %cgi_vars) { $q->param($_ => $cgi_vars{$_}); }