perl -e "for (a..f) { sleep 1; print qq{$_\r} } print qq{\n};"