use strict;
use warnings;
use Test::More;


tie my $s_null,"NULL";

Test::More->builder->output(\ $s_null);


is($_,$_+ int rand 2,"TEST $_") for 1..5;


done_testing;



package NULL;

sub FETCH {""}

sub STORE {
    print $_[1]
      if $_[1] =~ /^not ok \d+ -/;                        # NB: you may want to another FH
}

sub TIESCALAR {
    return bless \ my $var, shift;
}