$ perl -wE " sub F { G(); LF: say 6; } sub G { say 2; goto LF; } G; "
2
Can't find label LF at -e line 1.

$ perl -wE " sub F { return G(); LF: say 6; } sub G { say 2; goto LF; } F"
2
6