Select Code to Download

my $oldsub_ref = \&oldsub;

...
*oldsub = \&newsub;

$oldsub_ref->(2);

my $sref = \&oldsub;
sub oldsub {
...
  print "oldsub [$level]";
  $sref->($level - 1) if $level > 0;
}