use CGI;
my $q = new CGI;
my %param = $q->Vars;