SKIP: {
    eval { require List::BinarySearch }
        or skip "List::BinarySearch not installed", 2;

    $index = &List::BinarySearch::binsearch(
        sub {$a <=> $b},
        300,
        @num_array,
    );
    # ...
}