while(defined(read(STDIN, $buffer, $length))) {
   print $buffer."\n";
}