[Fouly]

Как получить сабж?
На перле:

read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});