my @chars = ('a'..'z', 'A'..'Z', 0..9);
my $password = do {{
  local $_ = join "" => map {$chars [rand @chars]} 1..8;
  redo unless /[a-z]/ && /[A-Z]/ && /\d/;
  $_;
}};
my $salt = join '',
   ('.', '/', 0..9,
   'A'..'Z', 'a'..'z')[rand 64, rand 64];
my $encrpass = crypt($password, $salt);