# generate a random salt
my $salt = join '', 
   ('.', '/', 0..9, 
   'A'..'Z', 'a'..'z')[rand 64, rand 64];

# combine salt with plaintext password
my $encrypted_pass = crypt($plaintext_pass, $salt);