OP may not know how to flush the buffer immediately to see the count...

$|=1;

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