A simple perl script to generate good random passphrases