Term::ProgressBar

Here's a super easy CPAN module I started using last week. Ever have a long running process that a human is watching, and you want to add a progress bar? Here you go!

use Term::ProgressBar;
my $progress = Term::ProgressBar->new({
   name  => 'MySlowThing()',
   count => 100,
   ETA   => 'linear', 
});
$progress->max_update_rate(1);

for (1..100) {
   sleep 1;
   $progress->update($_);
}

Gives you a nifty ASCII timer bar with major and minor movements, updating clock, the whole nine. :)

MySlowThing():  26% [====        *     ]1m16s Left