#!/usr/bin/perl
use strict;
sub {
my $env = shift;
my $input = "";
while( $env->{"psgi.input"}->read( my $buffer, 8192 ) ) {
$input .= $buffer;
}
return [
'200',
[ 'Content-Type' => 'text/plain' ],
[ "The method was $env->{REQUEST_METHOD}\n",
"The path was $env->{PATH_INFO}\n",
"The query string was $env->{QUERY_STRING}\n",
"The body was ".length($input)." bytes\n\n" .
join("", map { " \$ENV{$_} = $env->{$_}\n" } sort keys %$env) ],
];
}