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