use CGI; 
my $query=new CGI; 
test($query); 

sub test { 
my (%query)=@_; 
use Data::Dumper; 
print Dumper(\%query); 
}