Help for this page
while (<IN>) { while ( my $line = IN ) { print $outputfile $line ; } }
while ( my $line = <IN> ) { print $outputfile $line ; }