$|++; print " "; for (0..20) { select undef, undef, undef, 0.25; print "\b\b"; printf "%2d", $_; } print "\n";