>perl -wMstrict -le
"sub level1 {
   my $x = shift || 'default';
   local *foo = sub { return 'foo' . $x };
   print foo();
   }
 level1('bar');
 level1();
 foo();
"
foobar
foodefault
Undefined subroutine &main::foo called at -e line 1.