foreach (my $line = <FIL>) {
  print OUT $line;
}