Select Code to Download

#!env perl
#
...
    push @primes, $val if $val > 1;
    return @primes;
}

sub do_tests {
    use Test::More;
...
    }
    done_testing();
}

if ($num eq "-test") {
    do_tests();
...
else {
    print "$num: ", join(", ", factors($num)), "\n";
}

$ perl pm_1224882.pl 1234
1234: 1, 2, 617
...
ok 5
ok 6
1..6