19     while ( $divisor > 1  ) {
 20         if ( $current_candidate % $divisor == 0) {  #
 21             #print "$current_candidate mod $divisor is ";
 22             #print $current_candidate % $divisor;
 23             $isprime=1;
 24             last ;
 25         }
 26         if ($isprime == 1)  {
 27             last;
 28         }
 29         $divisor = $divisor - 2;
 30     }