{
  my $shared;
  sub foo {
   ...
   $shared++;
   ..
  }
  sub bar {
    ...
    print "Foo called $shared times.\n";
  }
}

##</code><code>##

sub foo {
  my $i = shift;
  return if $i <= 0;
  sub printFoo {
    print "The \$i=$i\n";
  }

  printFoo();
  foo($i-1);
}