sub Fibonacci {
    my $n = shift;
    ...
}