my $csv = Text::CSV->new ( { binary => 1, auto_diag=>2, escape_char => "\\", eol => "\n",  quote_char => '', } )