generate random password with a perl oneliner

09 Mar 2006 I have a script that generates passwords by piping /dev/urandom through head and base64 encoding it, but this perl oneliner is way more obscure :)

perl -e '@l=("a".."z","A".."Z",0..9) and print join "",map $l[rand @l],0..100'