Select Code to Download

use Sieve; # Rename as appropriate...

...
    $sieve->is_prime($number) ? "prime" : "composite", "\n";
}
print join(", ", $sieve->primes_to(300)), "\n";

package Sieve;
use strict;
...
}

1;