while ( <IN> ) {
    print OUT $_;
  }