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

#!/usr/bin/env perl
use strict;
 
$|=1;
my $pct;
while ($pct<=100)
{
    print STDOUT "\r$pct\% diaries read and checked ";
    $pct++;
}