I tried it on my old FC6, 2Ghz processor, 512mb ram. It ran ok until it reached 175000 when I got a "temperature above threshold" warning. To get around that, I rewrote it like this, trying to keep to "brute force":

#!/usr/master/bin/perl -l

use Modern::Perl;
use Parallel::Runner;
use Data::Dumper::Concise;
use Math::Prime::XS qw(mod_primes);

$|=1;

my $runner = Parallel::Runner->new(1);
$runner->run( sub {
    my @all_primes = mod_primes(); 
    print Dumper @all_primes;
});
$runner->finish;
[download]