);
} or warn $@;
+my $filesize = (stat $file)[7];
eval {
require Digest::MD5;
open my $bin, '<', $file;
binmode $bin;
- my $md5 = Digest::MD5->new->addfile($bin);
- push @info, ' # '.$md5->b64digest;
+ my $md5 = Digest::MD5->new->addfile($bin)->b64digest;
+ push @info, " # $md5 ($filesize)";
} or warn $@;
open my $pgm, '-|', convert => (