#!/usr/bin/perl # use strict; print "Content-Type: text/html\n\n"; print "<html><head><title>dump output</title></head><body>\n"; if ($ENV{'REQUEST_METHOD'} eq "GET") { my $in = $ENV{'QUERY_STRING'}; print "<h2>REQUEST_METHOD was GET</h2><pre>\n"; print "Stdin= [$in]\n"; print "</pre>\n"; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { my $in; sysread(STDIN, $in, $ENV{'CONTENT_LENGTH'}); print "<h2>REQUEST_METHOD was POST</h2><pre>\n"; print "Stdin= [$in]\n"; print "</pre>\n"; } print "<h2>Environment variables</h2><pre>\n"; foreach my $key (sort(keys(%ENV))){ print "<B>$key</B>", " "x(23-length($key)), "= $ENV{$key}\n"; } print "</pre>\n"; print "</body></html>\n"; exit 0;