use strict; use warnings; use Digest::MD5; print Digest::MD5::md5_hex("username" . "SamplePassword"); #### c0075ad4e26ec3dee225ccb6387b0b77