open(DAT, '>', ...) || die(...);

{
   my $old_sel = select(DAT);
   $| = 1;  # Auto-flush.
   select($old_sel);
}

...