#!/usr/bin/perl

print "Content-Type: text/plain\n\n";

foreach $key ( sort keys %ENV )
  { print $key, " = ", $ENV{$key}, "\n"; }

if ( $ENV{"REQUEST_METHOD"} =~ m/POST/i )
  { print "\n\nInput:\n";
    read ( STDIN, $data, $ENV{"CONTENT_LENGTH"} );
    print $data;
  }