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