use Digest::MD5 qw[md5_hex];
my $s = 'the quick brown fox jumps over the lazy dog';
print md5_hex $s;
77add1d5f41223d5582fca736a5cb335

print md5_hex $s . 's';
5e48a737eaff799917707b2815af10fc

print md5_hex $s . 'S';
d02763729a741eed14417a1051ec228c