my $csv = Text::CSV->new ({ eol => qq{\r}, }) or
            die "" . Text::CSV->error_diag ();