#!/usr/bin/perl
use strict;
use warnings;
use Digest::MD5 qw(md5_hex);
use Digest::file qw(digest_file_hex);

my $checksumme = digest_file_hex("test_md5.png",'MD5');
my $md5 = md5_hex("test_md5.png");
print "$checksumme / $md5\n";