perl -e "for (1..10){print qq(.);sleep 1}"