Help for this page
my $read = read($fh_in, $buf, $blk_size, length($ofs));
my $read = read($fh_in, $newbuf, $blk_size); ... $buf .= $newbuf;
my $read = read($fh_in, $buf, $blk_size, length($buf));