open(FH, ...);
select FH; $| = 1; select STDOUT;
...