Select Code to Download

use strict;
use warnings;
...

print $foo->list_params( 1 );
print $foo->list_params( $q );

test.pl one=two red=blue red=herring bob= marley=bob

$VAR1 = {
          'one' => 'two',
...
          'foo' => 'bar',
          'baz' => 'Ovid'
        };

package Foo;
use strict;
...
                  $vals;
}
"Ovid";