Select Code to Download

sub action {
  for my $i(@list) {
...
    print "Decide sub didn't call next!\n";
  }
}

sub foo { next I; };
I: foreach my $a ( 1..5 ) {
...
  &foo(); 
  print "$a\n";
}