$ perl5.12.0 -E'sub g { say "g" }  sub f { goto &{ \&g } }  f();'
g

##</code><code>##

$ perl5.12.0 -e'goto FOO; while (1) { FOO: last }'
Use of "goto" to jump into a construct is deprecated at -e line 1.

##</code><code>##

$ perl5.12.0 -E'while (1) { goto FOO; } FOO: say "done"'
done