my $prev_fh         = select $outfh;
local $|            = 1;                # autoflush
select $prev_fh;