1 2 3 4 5 6 7 8 9 10 11
sub fib { my($n)=@_; if ($n<2) { return $n; } else { return fib($n-2)+fib($n-1); } } print fib(20), "\n";