$|=1;
for($i=0; $i<10; $i++){
print "$i\r";
sleep(1);
}