perl -e 'sleep 1, print STDERR ++$i, "\r" while $i < 9'