use Search::Binary;
$pos = binary_search($min, $max, $val, $read, $handle, [$size]);