in reply to Golfing password creation

perl -le 'print map+(0..9,a..z,A..Z)[rand 62],1..(pop||8)'