#!/usr/bin/perl -w

use strict;

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

##</code><code>##

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