I spent quite a bit of time in February 2007 trying to figure out how to manipulate Test::More output. What I learned and what others taught me is documented here:
Redirecting STDOUT,
Controlling STDOUT,
Testing a Test:: Module and ultimately in the module,
Test::MonitorSites, which might actually already handle what your friend is looking for. Its late at the moment, and I'm now fourteen months removed from that project, so I don't know that I can comment on a "best approach to take" at this moment. But if I were to, it would start by reviewing what I learned last year writing that Test::MonitorSites module. You might consider reading the code and test suite for that module. As I recall it wasn't very long.
-- Hugh
if( $lal && $lol ) { $life++; }