my $read = read($fh_in, $newbuf, $blk_size);
   ...
   $buf .= $newbuf;