perl -E '@a=(0..9,A..Z,a..z);$_.=$a[rand@a]while 8>length;say'