Select Code to Download

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

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