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'}; }