I have been using Time::Progress for quite awhile in a few long (10s to a few hours) running tools to keep users calm about what's going on and I like it quite well. E.g.,

use warnings;
use strict;

use Time::Progress;
my $progress = Time::Progress->new();
$progress->attr( min => 0, max => 100_000 );
for my $count ( 0 .. 100_000 )
{
    print $progress->report( "%60b %p\r", $count );
}
print "\nDone!\n";
[download]