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

##</code><code>##

    for ($i = 0; $i < 10; ++$i) {
        print $i;
    }

##</code><code>##

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