Select Code to Download

  {
    package foo;
...
  $cr = \&foo::foo;

  print $cr->($foo), "\n" for 1 .. 5;

  {
    package foo;
...
  $cr = sub { $foo->foo(@_) };

  print $cr->(), "\n" for 1 .. 5;