in reply to Random Password Generator
use String::Random qw/ random_string /; use List::Util qw/ shuffle /; print random_string(join '', shuffle((qw/ c C n /) x 3)); [download]
ihb
See perltoc if you don't know which perldoc to read!