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