use Test::More 'no_plan';

open my $mail_pipe, '|-', 'cat > /tmp/pm' or die "Can't pipe: $!";
print $mail_pipe 'Test run: ', scalar localtime, "\n";

Test::More->builder->output( $mail_pipe );
Test::More->builder->failure_output( $mail_pipe );

ok( 1, 'one is true' );
ok( ! 0, 'zero is false' );
ok( 'roses', 'roses are read' );
ok( die(), 'violets are blue' );
ok( 'sugar', 'sugar is sweet' );

##</code><code>##

Test run: Thu Jun 14 10:19:57 2007
ok 1 - one is true
ok 2 - zero is false
ok 3 - roses are read
1..3
# Looks like your test died just after 3.