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