#!perl -l
use strict;
use warnings;
no warnings 'exiting';

my ($x);

sub do_onething {
    if ($x) {
        print $x--;
        redo ATTEMPT
    } else {
        $x=10;
        print "Done onething.";
    }
};
sub do_another {
    if ($x) {
        print "Done another.";
        last ATTEMPT
    }
};


$x=10;

ATTEMPT:{
   do_onething
}

ATTEMPT:{
  for ('A'..'Z') {
    print $_;
    do_another;
  }
}

##</code><code>##


sub retry(&$) {
    my $sub_ref = shift;
    my $max     = shift ||3;

  ATTEMPT:
    for my $try (1..$max) {
        eval { $sub_ref->(); };
        last unless $@;
        warn "Failed $try, retrying.  Error: $@\n"
    }
    if ($@) { die "failed after $max tries: $@\n" }
}

my $t=0;
retry {
        print "Seeya!" and last ATTEMPT if $t++>4;
        die "failure";
      } 10;