Select Code to Download

sub binary_search {
...
.....108: 102 110
.....109: 102 110
.....*110: 102 110

...
    my @results = cpan_binary_search(\@data, $#data, $num);
    say "$num: @results";
}

use strict;
use warnings;
...

infile_name
outfile_name