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