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