sub Fib($)
{
  my $index = shift;
  return 0 if 0 == $index;
  return 1 if 1 == $index;
  return Fib( $index - 1 ) + Fib( $index - 2 );
}