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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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