Select Code to Download

Select or download this

use strict;
use warnings;
...
print "Found $toFind primes in " . Time::HiRes::tv_interval ($startTim
+e) . " seconds\n";
print "2 ";
print "@primes[$_*10..$_*10+9]\n" for 0..($toFind / 10)-1;

Select or download this

Found 201 primes in 0.002236 seconds
2 3 5 7 11 13 17 19 23 29 31
...
1021 1031 1033 1039 1049 1051 1061 1063 1069 1087
1091 1093 1097 1103 1109 1117 1123 1129 1151 1153
1163 1171 1181 1187 1193 1201 1213 1217 1223 1229