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";