これ?
read (STDIN, $PostData, $ENV{'CONTENT_LENGTH'});