use warnings;
use strict;

my $cot = 0;
LOOP: {
    print "perlmonks rule", $/;
    redo LOOP if ++$cot < 10;
}