$|=1;

##</code><code>##

my $oldfh=select(BADADDR);
$|=1;
select(GOODADDR);
$|=1;
select($oldfh); # reselect STDOUT