use strict;
use warnings;

use Text::CSV_XS;

{
    my @row1 = ("aaa","fff","sss" );
    my @row2 = ("bbb","fff","sss");

    # should set binary att
    my $csv = Text::CSV_XS->new ( { binary => 1 } )
      or die "Cannot use CSV: ".Text::CSV->error_diag ();

    open my $fh, ">:encoding(utf8)", "new.csv"
      or die "Failed to open new.csv for writing: $!";

    $csv->print ($fh, \@row1);
    $csv->print ($fh, \@row2);  
    close $fh or die "Failed to close new.csv: $!";

    print " finished \n";
}