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