Help for this page
#!/usr/bin/perl -w ... for (my $i = 0; $i < 10; $i++) { print "$i\n"; }
my $i = 0; while ($i < 10) { ... continue { ++$i }