open(FILE, ...

{
   my $old_selected = select(*FILE);
   $| = 1;
   select($old_selected);
}

print FILE ...