Posted to tcl by yeeling at Mon Jul 02 10:19:14 GMT 2007view raw

  1. #!/usr/bin/env perl
  2. use strict;
  3.  
  4. $|=1;
  5. my $pct;
  6. while ($pct<=100)
  7. {
  8. print STDOUT "\r$pct\% diaries read and checked ";
  9. $pct++;
  10. }