my $qstr = $ENV{QUERY_STRING};