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

##</code><code>##

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