my $count=0;
ATTEMPT:{
        do_something() or ($count++ < $maximum and redo ATTEMPT)
}