perl -e"$Win32::Sleep(100) and print qq[$_ ...] for 1 .. 100"
 | perl -ne"print qq[\r'$_']"