You may want "\r". E.g.:

$ perl -e '$|++; $\="\r";
> print, select undef, undef, undef, .1
> for "01" .."99"'
[download]