RosettaCodeData/Task/Fibonacci-sequence/Perl/fibonacci-sequence-2.pl

sub fibRec {
    my $n = shift;
    $n < 2 ? $n : fibRec($n - 1) + fibRec($n - 2);
}