use strict; sub Fib { my ($n) = @_; return 1 if $n < 2; return Fib($n - 2) + Fib($n - 1); } my $n = 30; printf "Fib(%.0f)=%.0f\n",$n, Fib($n),;