sysread($fh, $buf, BLOCK_SIZE, length($buf))