my $saved_fh = select;
  select $OUTFILE;
  $| = 1;
  select $saved_fh;