if( $ENV{CONTENT_LENGTH} ){ read(STDIN, my $content, $ENV{CONTENT_LENGTH}); my @paras = split(/&/, uri_unescape($content)); print "PARAMETER:
"; foreach(@paras){ print $_."
"; } print "
CONTENTTYPE: ".$ENV{'CONTENT_TYPE'}; }