sub nearPrime {
    my $num = shift;
    my $sign = 1;
    return $num if isPrime($num);
    for (0..$num) {
        $num += $sign * $_;
        return $num if isPrime($num);
        $sign = -$sign;
    }
}