Select Code to Download

  my %hash = map { split(m'='x, $_, 2) }
             grep { m'='x }
             split(m'&'x, get_params());

my $query = join('&', map { $_ . '=' . sanitize($cgi->param($_)) } san
+itize($cgi->param()));

sub sanitize($) {
  #*
...
  return $rv;
  #usage: my $sanitized = sanitize($input);
}