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

##</code><code>##

my $method = $q->request_method();