# Compute Fibonacci numbers, straight from Memoize docs
use Memoize;
memoize('fib');

sub fib {
     my $n = shift;
     return $n if $n < 2;
     fib($n-1) + fib($n-2);
}

my $foo = fib(24);