my $stdin_str = "";
read (STDIN, $stdin_str, $ENV{'CONTENT_LENGTH'});

open FH, ">|" or die $!;
print FH $stdin_str;

open STDIN, "<|" or die $!;

my $q = new CGI;

close STDIN;
close FH;