in reply to Is there a better way to get all the t/.t test files an array?

Untested:

use Test::Harness; use File::Find::Rule; runtests( File::Find::Rule->file->name('*.t')->in('./t'));

On the off chance that you're considering creating a command line tool for running test scripts, you might want to look at prove (part of recent Test::Harness distributions) and Test::Verbose.