Select Code to Download

perl -e 'foreach my $dir(@INC) { print "$dir\n"; }'
perl -e 'for my $dir(@INC) { print $dir\n"; }'

perl -e 'foreach($i = 0; $i < 10; $i++) { print "$i\n"; }'
perl -e 'for($i = 0; $i < 10; $i++) { print "$i\n"; }'