use Digest::MD5 qw(md5_hex);

my $md5_password = md5_hex($password . $salt);