while ( <$fh> ) {
      print OUTPUT $_;
  }

##</code><code>##

  while ( read( $fh, $buffer, BUFFER_SIZE ) ) {
      print OUTPUT $buffer;
  }