Select Code to Download

for (INIT; COND; POST) {
   BODY;
}

INIT;
while (COND) {
   BODY;
   POST;
}

$j=1;
while ($j<=10) {
   print "$j\n";
   $j++;
}

print "$_\n" for 1..10;

say for 1..10;