package NoPrint;
use Symbol;

sub new {
    my $sym = gensym;
    tie *$sym, $_[0];
    bless $sym, $_[0];
}
sub TIEHANDLE { bless {}, $_[0] }
sub PRINT { return undef }
sub PRINTF { return undef }
sub WRITE { return undef }

##</code><code>##

my $old_fh = select NoPrint->new;

## deep inside some test somewhere...
print "foo\n" or warn "print failed (1)";

select $old_fh;

## now printing is back to normal again:
print "foo\n" or warn "print failed (2)";

##</code><code>##

{
    local *STDOUT = NoPrint->new;
    print "foo\n" or warn "print failed (1)";
}

print "foo\n" or warn "print failed (2)";