while ($myrange) {
        $myrange -= read($fh, $buf, min($myrange,$readsz) ) or last;
        # do stuff
    }