Select Code to Download

$ cat test.pl
  #!/usr/bin/perl
...
          'one' => '1',
          'two' => '2'
        };

  my %h = (
      one => scalar $q->param('one'),
      two => scalar $q->param('two')
  );