use Text::CSV;
my $csv = Text::CSV->new({binary=>1,always_quote=>1,eol=>$/});
$csv->print(\*STDOUT, ["","",""]);
__END__
"","",""