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