my $csv = Text::CSV->new( { binary => 1, eol => "\n\n" } );