Select Code to Download

my @chars = ("A".."Z", "a".."z",0..9);
my $salt = join '', map{ $chars[rand @chars] } 0..15;