my $plaintext = "tstpw82!";
srand(time() ^ ($$ + ($$ << 15)));
my @chars = ('0'..'9','a'..'z','A'..'Z','!','+');
my $salt = $chars[int(rand(scalar @chars))] . $chars[int(rand(scalar @chars))];
print crypt($plaintext,$salt) . "\n";