use Digest::MD5;
$digest = &Digest::MD5::md5_hex($password . lc($user) );