use Sieve; # Rename as appropriate...

my $sieve = Sieve->new;
foreach my $number (qw/13 20 35 3/) {
    print "$number is ",
    $sieve->is_prime($number) ? "prime" : "composite", "\n";
}
print join(", ", $sieve->primes_to(300)), "\n";