$ perl -MTAP::Harness -e '$h = TAP::Harness->new(); $h->runtests("./try.pl");'
./try.pl .. All 1 subtests passed

Test Summary Report
-------------------
./try.pl (Wstat: 0 Tests: 1 Failed: 0)
  Parse errors: No plan found in TAP output
Files=1, Tests=1,  1 wallclock secs ( 0.11 usr  0.01 sys +  0.05 cusr  0.02 csys =  0.19 CPU)
Result: FAIL