perl -e 'for ($i=0;$i<=10;$i=$i+3){print "$i\n"}'