Test::TAP::example3pm

        $ perl example.pl t/foo.t t/bar.t > results.pl

This program will run either it's command line arguments or "glob("t/*.t")", and use Data::Dumper to print the results to standard output.