use Digest::MD5 qw(md5_hex);

print "1: foo => ", md5_hex("foo"), "\n";
print "2: bar => ", md5_hex("bar"), "\n";
print "3: 123 => ", md5_hex(123), "\n";
print "4: empty => ", md5_hex(""), "\n";