sysread(STDIN, $buffer, 1000);

print "read ".length($buffer). " chars\n$buffer\n";