Select Code to Download

  my $b = 256;  # Whatever your bit length is
  my($p,$q);
...
  } while ( ($q % 3) != 2 || ($q % 5) == 2 || ($p % 3) != 2 ||
            !is_prime($p) );
  return $p;