Select Code to Download

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