my $csv = Text::CSV_XS->new ({ quote_space => 1 });
         $csv->quote_space (0);
 my $f = $csv->quote_space;

##</code><code>##

my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    # ......

    csv_quote_space => 0,
    });