perl -MTest::Harness -e'runtests(@ARGV)' prime.t