Select Code to Download

$q = new CGI;
{
    my $q = shift;
...
     }
    return %query_hash;
   }

  {
   open (REVIEW, "<review.txt") or die "can't open review.txt!";
   $q = new CGI("REVIEW");
   close (REVIEW);
  }