# crypt the password
my @chars=(a..z,A..Z,0..9,'.','/');
my $salt= $chars[rand(@chars)] . $chars[rand(@chars)];
my $crypted=crypt($password,$salt);

##</code><code>##

my $crypted = crypt( $password, join( '', 
  ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]));