use strict;
use warnings;

package Log::OPG::Info;
use Tie::Handle;
use base qw(Tie::StdHandle);
sub WRITE { print "Good\n"; }

package main;

format STDERR =
Bad
.

tie *STDERR, 'Log::OPG::Info';
print STDERR '';
write STDERR;

##</code><code>##

Good
Good

##</code><code>##

Good
Bad