#!/usr/bin/perl

  $|++;

  for my $i (0..10000000) {
   $i % 100000 or print "line: $i\r";
  }