Select Code to Download

C:\>perl -MO=Deparse -e "print for (1..10);print foreach (1..10);"
foreach $_ (1 .. 10) {
...
    print $_;
}
-e syntax OK