$ perl -MText::CSV_XS -wle'my$csv=Text::CSV_XS->new();' \
> -e'$csv->combine(1,"foo","bar baz");' \
> -e'print $csv->string'
1,foo,"bar baz"
$ perl -MText::CSV_XS -wle'my$csv=Text::CSV_XS->new({quote_char=>undef});' \
> -e'$csv->combine(1,"foo","bar baz");' \
> -e'print $csv->string'
1,foo,bar baz
$ perl -MText::CSV_XS -wle'my$csv=Text::CSV_XS->new({always_quote=>1});' \
> -e'$csv->combine(1,"foo","bar baz");' \
> -e'print $csv->string'
"1","foo","bar baz"
$