File: test.pl.PL

package info (click to toggle)
apache2 2.4.66-6
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 59,884 kB
  • sloc: ansic: 212,340; python: 13,830; perl: 11,307; sh: 7,266; php: 1,320; javascript: 1,314; awk: 749; makefile: 715; lex: 374; yacc: 161; xml: 2
file content (8 lines) | stat: -rwxr-xr-x 144 bytes parent folder | download | duplicates (6) 
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";
   }
}