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