Select Code to Download

use strict;
use CGI;
...
    $params{$_} = $q->param($_);
  }
}

use CGI;
my $q = new CGI;
my %in = map { $_ => $q->param($_) } $q->param;