#!/usr/local/bin/perl while () { if (/^#1/) { $pwd = `pwd`; print "pwd=$pwd"; foreach $key (sort keys(%ENV)){ print "$key $ENV{$key}\n"; } } elsif (/^#2/) { $method = $ENV{'REQUEST_METHOD'}; print "REQUEST_METHOD $method\n"; if ($method =~ /^POST$/i) { read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); print $buf; } else { print $ENV{'QUERY_STRING'}; } } else { print; } } __END__ Content-type: text/html form test: cgi output

form test: cgi output

#1

#2
#!/usr/local/bin/perl while () { if (/^#1/) { $pwd = `pwd`; print "pwd=$pwd"; foreach $key (sort keys(%ENV)){ print "$key $ENV{$key}\n"; } } elsif (/^#2/) { $method = $ENV{'REQUEST_METHOD'}; print "REQUEST_METHOD $method\n"; if ($method =~ /^POST$/i) { read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); print $buf; } else { print $ENV{'QUERY_STRING'}; } } else { print; } } __END__ Content-type: text/html form test: cgi output

form test: cgi output

#1

#2