Select Code to Download

$ perl -MO=Concise -e 'X: next X'
4  <@> leave[1 ref] vKP/REFC ->(end)
...
2     <;> nextstate(X: main 1 -e:1) v:{ ->3
3     <"> goto("X") v ->4
-e syntax OK

$ perl -wE 'sub f() { next X }; X: for (1) { f }'
Exiting subroutine via next at -e line 1.