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