#!/usr/bin/perl
print `./foo.t`;

##</code><code>##

perl -e 'use Test::Harness qw(&runtests $$verbose); $$verbose=${VERBOSE}; runtests @ARGV;' ${TEST_SCRIPTS} 2>/dev/null