Select Code to Download

use strict;
use warnings;
...


Found 0 at

sub BinSearch {
    my ($target, $cmp, $array) = @_;
...
        }
    }
}