E:\Smoke\source>perl -e "foreach (my $i=0;$i<10;$i++) { print $i,$/}"
E:\Smoke\source>perl -e "for     (my $i=0;$i<10;$i++) { print $i,$/}"