use Crypt::PasswdMD5;
my $pass ="foobar";
my $salt="M0au29mc";
print unix_md5_crypt($pass, $salt);