my $label;

LABEL:
warn "label = $label\n";
$label = $label ? 'LAST': 'LABEL';
goto $label;

LAST:
warn "done, label = $label\n";

__END__
label = 
label = LABEL
done, label = LAST