my $csv = Text::CSV_XS->new ({ strict_eol => 1 });
        $csv->strict_eol (0);
my $f = $csv->strict_eol;