#! /bin/perl -w

use strict;
$| = 1;
my $data;
my $key;
my $val;

print "Content-type: text/plain\r\n\r\n";
print "Environment Variables and their Values\r\n";
print "--------------------------------------\r\n";
while ( ($key,$val) = each %ENV) {
  print "$key = $val\r\n";
}
$val = $ENV{CONTENT_LENGTH}; # set bugger size for reading data

if(defined($val) ) {         # do only of there is POSTed data
  print "\r\n";
  print "Data sent from browser to server\r\n";
  print "--------------------------------------\r\n";
  while( read(STDIN, $data, $val) ) {  #read in $val bytes
     print $data;
  }
}


