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