use CGI;
use Data::Dumper;
my $q = CGI->new(foo => 1);
print Dumper [
    foo => $q->param('foo'),
    bar => 1,
    ];