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

##</code><code>##

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

##</code><code>##

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