perl -e'$|++;$SIG{INT}=sub{exit};while(1){sleep 1;print "."}END{print"
+done\n"}'
[download]

See: perlipc