Just to niggle, CGI->new will handle whatever you call it with, including any GET or POST input:

if ($ENV{'REQUEST_METHOD'} eq "GET" and $ENV{'QUERY_STRING'}) {
  (my $query = $ENV{'QUERY_STRING'}) =~ s/$munge//;
   my $q = CGI->new($query);
}
[download]