C:\>perl -e "print qq,\r$_, for 1 .. 3"
3
C:\>perl -e "print qq,\r$_, for 1 .. 3" |hexdump
00000000: 0D 31 0D 32 0D 33       -                         | 1 2 3|
00000006;