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