if (1){
   $CGI::Q = new CGI($_);
   my $blah = param('q');
}