use CGI;
my $query = new CGI;
%params = $query->Vars;
foreach (keys %params){
 print "$_\t",$params{$_},"\n";
}