{ package Yme; code; } #### package Ynot; { code; } #### sub lup { "LOOP" } sub say { print @_, $/; sleep 1; } LOOP: say 0; #sub mysub { # uncomment INNER: { say 1; goto +lup(); say 2; } LOOP: { say 3; goto LOOP; LOOP: say 2; } #} ### uncomment #mysub(); ### uncomment