use DBI;use strict;use warnings;
my $dbh = DBI->connect("DBI:CSV:f_dir=./;");
$dbh->do("create table mytable (field1 text,field2 text)");
$dbh->do("insert into mytable values ('','there')");
print "field1=",$dbh->selectrow_array("select field1 from mytable");

##</code><code>##

field1='?0?there'

##</code><code>##

use Text::CSV_XS;
use IO::Wrap;
my $csv = Text::CSV_XS->new(); 
my $fh = wraphandle(STDOUT);
$csv->print($fh, ['','test']);