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