zongors-reality-engine/test/fib.pl

use strict;
use warnings;

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

my $result = fib(35);

print "$result\n";