my $string = $ENV{QUERY_STRING}