Select Code to Download

use strict;
use Carp qw(croak);
...
};

hello();

use strict;
use Carp qw(croak);
...
};

hello();

START:
goto INSIDE;
...
    INSIDE2:
        print "World\n";
};

my $handler = sub { 
    INSIDE:
...
goto INSIDE; # deprecated
goto INSIDE2; # deprecated
goto &$handler; # still works, as we start "just on the outside" of $h
+andler