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