Select Code to Download

for (10,15,20831323,99,100) {
  print "$_: ", nearPrime($_), "\n";
...
}

...

sub nearPrime {
    my $num = shift;
...
        $sign = -$sign;
    }
}

BEGIN {
    my @primes = (2, 3); my $max = 3;
...
        return 1;
    }
}