This:

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

should be this:

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

But you should post the error you are getting here to give the Monks a chance to help without having to try to get your code to run.