use strict;

my $numb = shift || 20;

print fib($numb), "\n";

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