debian/perl-framework/t/htdocs/modules/negotiation/query/test.pl.PL


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";
   }
}