Select Code to Download

sub isPrime($) {
     $num = shift;
...
     if ($c == 1){return 1;}
     return 0;
}

use 5.010;
use strict;
...
        say;
    }
}

use Carp qw/croak/;
sub isPrime (_)
...
    }
    return 1;
}