@chars=(a..z,A..Z,0..9,'.','/');
 $salt= join '', @chars[rand(@chars), rand(@chars)];

##</code><code>##

my $elem = @chars;
$salt = join '', @chars[rand($elem), rand($elem)];