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