Select Code to Download

    sub skip_on_odd { next NUMBER if $_[0] % 2 }
    NUMBER: for ($i = 0; $i < 5; $i++) {
        skip_on_odd($i);
        print $i;
    }

sub jump { goto NESTED };
 
...
}
 
cont();

Can't find label NESTED at /home/lanx/B/PL/PM/goto.pl line 1.
0,a