sub fibonacci {
   my ($n) = @_;
   return 0 if $n == 0;
   return 1 if $n == 1;
   return sum fibonacci($n-2), fibonacci($n-1);
}