>perl -wMstrict -le
"print level2();
 sub level1 {
   sub level2 { return 'level2(): foo' }
   print 'level1(): ', level2();
   }
 level1();
 print level2();
"
level2(): foo
level1(): level2(): foo
level2(): foo