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