sub passwd {
        my $cleartext_pass=$_[0];
        my $ppr = Authen::Passphrase::MD5Crypt->new(
                        salt_random => 1,
                        passphrase => $cleartext_pass);
        my $passwdo = $ppr->as_crypt;
        return $passwdo;
        }