my $read = read($fh_in, $buf, $blk_size, length($buf));