use strict;
use warnings "all";
use CGI;

my $post= CGI->new;
my $get = CGI->new($ENV{'QUERY_STRING'});

my $foo_from_post = $post->param('foo');
my $foo_from_get  = $get->param('foo');