Select Code to Download

use CGI qw(param);
my %ParamSaver = map { $_ => [param($_)] } param();

# presume %ParamSaver has been fetched...
use CGI qw(param delete_all);
...
for (keys %ParamSaver) {
  param($_, @{$ParamSaver{$_}});
}