Select Code to Download

my $csv = Text::CSV_XS->new ({
    binary           => 1,
...
    auto_diag        => 1,
    allow_whitespace => 1,
    });

while (my $row = $csv->getline ($fh)) {

...
    else { # sorry, this is not filled: invalid    
        $csv_o->print ($fhi, $row);
        }