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