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