Select Code to Download

#! perl
use strict;
...
printf "\nValue %d is %s\n", $lookup,
       ($prev && $next) ? "between $prev and $next" :
        $prev           ? "above $prev" : "below $next";