#!/usr/bin/perl -w
use strict;
use warnings;
use Time::HiRes 'usleep';
use v5.12;

use constant TOP   =>  1000000;

say "1 is prime.";
say "2 is prime.";

#$SIG{INT} = 
#sub {
#    print "ctrl c hit\n";
#    exit();
#}
;
my $i;
my $j;
my $found = 2; # We already found 1 and 2.
OUTER: for( $i = 3; $i < TOP; $i += 2 ) {
    for( $j = $i - 2; $j > 1; $j -= 2 ) {
        if(( not  $i % $j )) {
            usleep(100);
            next OUTER;
        }
    }
    say "$i is prime.";
    $found++;
}
say "Found $found primes between 1 and ", TOP, ".\n";