sub passwd {
        my $ppr = Authen::Passphrase::MD5Crypt->new(
                        salt_random => 1,
                        passphrase => pop);
        return $ppr->as_crypt;
        }