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