use Test::More;
use vars qw( $TEST_OUTPUT );

main( @ARGV );
exit 0;

sub main
{
    intialize( @_ );

    ok( ... );

    print $TEST_OUTPUT;

    1;
}

sub initialize
{
    $| = 1;

    open my $fh, ">", \ $TEST_OUTPUT or die;
    my $b = Test::More->builder;
    $b->output( $fh );
    $b->failure_output( $fh );
    $b->todo_output( $fh );
    1;
}