Select Code to Download

C:\> perl -MO=Deparse -e "while (1) { print 1; }"

for (;;) {
...
}

-e syntax OK

$ perl -MO=Deparse -le 'for ( my $i = 0; $i < 10; $i++ ) { print 1 }'
-e syntax OK

...
continue {
    ++$i
}