Select Code to Download

for (my $i = 0; $i < $n; ++$i) {
   ...
}

my $i = 0;
while ($i < $n) {
...
} continue {
   ++$i
}