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),;