A little off-topic, but have you looked for a password generator in CPAN? You'd find interesting stuff, like Crypt::RandPasswd, a random word generator for pronounceable passwords.