use Crypt::PasswdMD5;

my $crypted = unix_md5_crypt $passwd, $salt;