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

##</code><code>##

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