my $qs = $ENV{'QUERY_STRING'};
print NEW "$qs\n" if defined $qs and not $s='';