use CGI qw( Vars );
use Data::Dumper;
my %params = Vars()
print Dumper(\%params);