Select Code to Download

sub recurse {
  my $level = shift;
  print "recurse [$level]\n";
  recurse($level - 1) if $level > 0;
}

#!/usr/bin/perl -w

...
*oldsub = \&newsub;

$oldsub_ref->(2);

oldsub [2]
oldsub [1]
...
Subroutine main::oldsub redefined at ./typeglob_clobber.pl line 22.
oldsub [2]
newsub [1]

my $coderef = do {
  my $selfref;
...
    # use $selfref here for recursion
  };
};

{
  my $selfref;
...
  }
  $selfref = \&named;
}