Select Code to Download

open( FH, "+>toc1.ncx" );
$OH1 = select(FH);
open( FILE, 'b.txt' ) or die "$!";
...
        push( @arr, $2 );
    }
}