D:\Development> perl -MO=Deparse,-x3 -e "for ($i = 0; $i < 10; ++$i) {print $i;}"
$i = 0;
while ($i < 10) {
    print $i;
}
continue {
    ++$i
}
-e syntax OK