package scandalz::soap::Passwords; use Crypt::RandPasswd; use Crypt::GeneratePassword; my $minlen = 10; my $maxlen = 20; sub genStrongPassword { return Crypt::RandPasswd->word($minlen,$minlen); } sub genPronounceablePassword { return Crypt::GeneratePassword->word($minlen,$maxlen); } 1;