use strict;
use warnings;

my @files    = ( 'some', 'list', 'of', 'files' );
my $nfiles   = @files;
my $nhandled = 0;
my $c_prog = progress_bar("File #<c> of <t> [<p>%] <b>", $nfiles);
foreach my $file (@files) {
    do_something_with_this_file($file);
    $c_prog->(++$nhandled);
}

$c_prog->();