in reply to .o0O [(i^% Archive::Zip test %^i)]O0o.

Your problem is that you are using: 
$after = $md5->addfile( $fh )->md5_hex;

[download]
When you should be using: 
$after = $md5->addfile( $fh )->hexdigest;

[download]

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom