Select Code to Download

#!/usr/bin/perl -w

...
for (my $i = 0; $i < 10; $i++) {
        print "$i\n";
}

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