use strict;
use Digest::MD5;

my $md5 = Digest::MD5->new();
$md5->add('mypass');
my $digest = $md5->hexdigest;

print $digest, "\n";
print "977f6d9e19594bd58e68030e029cbb3c\n";

##</code><code>##

a029d0df84eb5549c641e04a9ef389e5
977f6d9e19594bd58e68030e029cbb3c