use Progress;

my $p = Progress->new(style=>"line");
# or
# my $p = Progress->new(style=>"bracket");
# or
# my $p = Progress->new(style=>"simple");
# or (equiv. to simple)
# my $p = Progress->new();
# or 
# my $p = Progress->new( style=>"free", freestyles => [("a".."z")]);

for ($i=0;$i<10;$i++)
{
    $p->next();
    sleep(1);
}

$p->reset();