Select Code to Download

while (<RLS>)
{
...
         ) or die "" . Text::CSV->error_diag ();
        next if ($. == 1);
        if ($csv->parse ($_)) {

my $csv = Text::CSV_XS->new ({
    binary             => 1,
...
    :
    }
close $fh;