$ENV{'REQUEST_METHHOD'} ne "POST"
## or 
$ENV{'REQUEST_METHOD'} eq "GET"
## or even
$ENV{'REQUEST_URI'} =~ /\?/