Select Code to Download

# Takes an array ref and a target item
# Returns the index of the item in the array or
...
  return binsearch ([$arref->[$midpoint+1..$len-1],$target) if $cmp ==
+ 1; # Its in the upper half, check to the midpoint +1 for reason stat
+ed above
  croak "Something really weird happened. Might want to run make test 
+on perl itsself.";
}