use Progress::Indicator qw'progress';

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

##</code><code>##

Processing 2018-12-21 (10 of 1000, 10%, Remaining 1:10:59)

##</code><code>##

Processing 2018-12-21 (10 of 1000, 3/s)