$ perl -e '$|++; for(1..10) {print ".\n"; sleep 1}' | sed -e 's/\./#/g'