C:\test>perl -e"printf qq[\r%s], $_ for '0001' .. $ARGV[0]" "1999"
1999