);
} or warn $@;
+eval {
+ require Digest::MD5;
+ open my $bin, '<', $file;
+ binmode $bin;
+ my $md5 = Digest::MD5->new->addfile($bin);
+ push @info, ' # '.$md5->b64digest;
+} or warn $@;
+
open my $pgm, '-|', convert => (
-compress => 'none',
'+distort' => SRT => '0,0 1,.56 0',