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