use Digest::MD5 qw(md5_hex);
  $hashed = md5_hex($passwd);