use Test::Harness;
runtests(@tests);
*****
1..6
not ok
ok
not ok
ok
ok
*****
FAILED tests 1, 3, 6
Failed 3/6 tests, 50.00% okay