# this works as a bash include
#
#COMM test function &ListLocateSorted
#
perl -e '
   use lib shift();  # give include precedence to code directory, perl -I would not work!
   use Math::Calc;
   $val=400;
   $pos = &ListLocateSorted ([0..5000],$val, -sort=>sub{$_[0]<=>$_[1]});
   print "entry $pos is right neighbour of $val\n";
   $val=400.5;
   $pos = &ListLocateSorted ([0..5000],$val, -sort=>sub{$_[0]<=>$_[1]});
   print "entry $pos is right neighbour of $val\n";
  ' $direxec 2>&1  \
| perl -n -e 's/eval (\d+)/eval 4/; print;'
