$|++;

for ($i=0; $i<1000; $i++) {
    print "\r$i";
}
print "\n";