Select Code to Download

sub do_each_until_false {
    for (@_) {
...
    }
    return 1;
}

if (
    do_each_until_false(
...
else {
    print "FAILED\n";
}

my $is_success = 0;
BLOCK: {
...
else {
    print "FAILED\n";
}