or download this
$ perl -MText::CSV_XS -wE'Text::CSV_XS->new({binary=>1,auto_diag=>1,qu
+ote_space=>0,eol=>"\n"})->print(*STDOUT,[undef,""," ",1,"a b "])'
,, ,1,a b
$ perl -MText::CSV_XS -wE'Text::CSV_XS->new({binary=>1,auto_diag=>1,qu
+ote_space=>1,eol=>"\n"})->print(*STDOUT,[undef,""," ",1,"a b "])'
,," ",1,"a b "
or download this
$ perl -MText::CSV_XS -C3 -wE'Text::CSV_XS->new({binary=>1,auto_diag=>
+1,quote_space=>0,eol=>"\n"})->print(*STDOUT,[undef,""," ",1,"a b ","\
+x{20ac}"])'
,, ,1,a b ,"€"
$ perl -MText::CSV_XS -C3 -wE'Text::CSV_XS->new({binary=>1,auto_diag=>
+1,quote_space=>1,eol=>"\n"})->print(*STDOUT,[undef,""," ",1,"a b ","\
+x{20ac}"])'
,," ",1,"a b ","€"