my $get_cgi = new CGI( $ENV{REDIRECT_QUERY_STRING} || $ENV{QUERY_STRING});
my $cgi = new CGI; #will read ALL of STDIN (file uploads will take time..)
my $all_vars = \%{ $cgi->Vars, $get_cgi->Vars }; #GET vars will take precedence.