Help for this page

Select Code to Download

Select or download this

my $c = 0;
BLOCK:
...
print "Hi there!\n";
redo BLOCK if $c++ < 10;
}