Select Code to Download

my $ci = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
my $co = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\n"
+ });
...
    }
close $fi;
close $fo;