#! /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; } }