Select Code to Download

{
  my $shared;
...
    print "Foo called $shared times.\n";
  }
}

sub foo {
  my $i = shift;
...
  printFoo();
  foo($i-1);
}