for $ctr (1..10) {
   sleep(1);
   print("\rProcessed line number $ctr.");
}
print("\rDone.                      \n");