Select Code to Download

perl -e'$|++;split//,int rand 10**pop;sub f{$.=++$.%10;print$.;sleep 1
+,print"\b";$.==$_[0]||&f;print 
shift;@_&& &f}&f;print"\n"' 10