perl -wle"$|=1; printf qq[\r$_\t] and sleep 1 for reverse 1 .. 60"