perl Crypt-Primes