1 2 3 4 5 6 7 8
print "Content-type: text/html\n\n"; foreach my $key (keys %ENV) { if ($key eq "QUERY_STRING") { print "$key --> $ENV{$key}\n"; } }