Select Code to Download

open(F, "/usr/dict/words") || warn;  # File to process
$s=-s F;
...
      # Do something with the data I presume...
      printf "\rComplete %.2f", 100*tell(F)/$s;
}

  printf("\rComplete: %.2f", 100*tell(F)/$s) unless $i++ % 10;