Or if you don't like extra (read: temporary) vars, the canonical:

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

--
Snazzy tagline here