perl -e 'for(;$i<10;$i++,print"Hi $i\n"){}'