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