generate random password with a perl oneliner

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'