lorenzo@alice:~$ perl -MO=Deparse,-x3 -e 'for( my $i = 0; $i < 10; $i++ ) {}' while ($i < 10) { ; } continue { ++$i } -e syntax OK