>>885
つread(STDIN, $buffer, $ENV{'CONTENT_LENGTH'} < 100 );