my $handler = sub { 
    INSIDE:
    print "Hello ";
    INSIDE2:
    print "World\n";
};

goto INSIDE; # deprecated
goto INSIDE2; # deprecated
goto &$handler; # still works, as we start "just on the outside" of $handler