I've to do more than send all Test as a simple mail, but I've solved like that (and I'm not that happy with it):

our $OUTPUT = '';
my $fh = IO::Handle->new();
open($fh, '>', \$OUTPUT);

# Catch all output
Test::More->builder->output($fh);
Test::More->builder->failure_output($fh);
Test::More->builder->todo_output($fh);

..testcode..
BAIL_OUT(..or other exit...)

END {
# This is called even after exit(), so I can access the output
print STDOUT $OUTPUT;
}
[download]