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