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

##</code><code>##

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