use Progress::Indicator qw'progress';

for my $image (@files) {
    progress( \@files, "Processing $capture_date" );
};