while (<IN>) {
        while ( my $line = IN ) {
          print $outputfile $line ;
        }
    }