use strict;
use Test::Harness;
my $out;
{
    open local(*STDOUT),'>',\$out;
    runtests();
}
print $out;