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