"Eratosthenes was a clever chap"

I never met him. But another chap wrote some kind of shortcut:

use Math::Prime::XS qw( sieve_primes );
my @primes = sieve_primes(10_000);
[download]

I'm to tired to write the benchmarks...

Best regards, Karl