$ perl -wE 'sub g() { label: say "here" }; g; goto label'
here
Can't find label label at -e line 1.