Password (pseudo)casual

[cisco88]

Hi all,
I wrote this simple code to create a password.

perl -e '@lett = (a..z); $len = "$#lett"; foreach (1..20) {print $lett[rand($len) % $len + 3 ];} print "\n";'

Given that I only read half chapter 1 of "Programming in Perl" and maybe more complex solutions aren't yet in my grasp.. how you'd do it?

Thanks and have a good day.

Back to Seekers of Perl Wisdom