$|=1;
for ($i=10;$i;--$i) {printf "%2d\b\b", $i; sleep 1}