perl -e '$s=0;for $i (1..10) { ++$s }; print $s;'