$|=1;

for(1..10){
print "\r", 'line: ', $_;
sleep(1);
}