Select Code to Download

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

    ...
    if( ... ) {
...
    ERR:
        ... clean up after fatal error ...
    }