$q = new CGI;
{
    my $q = shift;
    my %query_hash;
    foreach ( $q->param() )
   	 {
	  $query_hash{$_} = $q->param($_);
	 }
    return %query_hash;
   }

##</code><code>##

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

##</code><code>##

  $q->save("NEWREVIEW");