sub fibonacci {
	my $n = shift;

	return undef if $n < 0;

	my $f;
	if ($n == 0) {
		$f = 0;
	} elsif ($n == 1) {
		$f = 1;
	} else {
		$f = fibonacci($n-1) + fibonacci($n-2);
	}
	
	return $f;
}

print fibonacci(25);