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