Select Code to Download

my %Params;

...

  %Params = $Query->Vars;
}

while (my ($key, $value) = each %Params) {

   my $$key = $value;

}