Basic Fibonacci in Perl 5

sub fib_basic { my ($n) = @_; if ($n > 1) { return fib_basic($n - 1) + fib_basic($n - 2); } return $n; }