c:\test>perl Math\Primes\First_1e6.pm
Found 122571 primes from 1000000 tries in 1.145 seconds (873362/s)