Select Code to Download

use Search::Binary;
...
    my $z = $f{$xF->($x),$yF->($y)};
    print "( $x $y ) -> $z\n";
}

use Number::Interval;
...

    print "( $x $y ) -> $z\n";
}