my $q = CGI->new();
my %params = $q->Vars;
print $params{'foo'}; # one