#!/usr/bin/perl

use v5.12;
use warnings;
use autodie qw( :all );

use File::BOM;
use DBI;

open my $h,'>:encoding(utf-8)','test.csv';
say $h qq<\x{FEFF}"foo","bar","baz">;
say $h qq<"1","2","3">;
say $h qq<"4","5","6">;
close $h;

my $dbh=DBI->connect('dbi:CSV:',undef,undef,{ RaiseError => 1, PrintError => 0, f_ext => '.csv'});
my $sth=$dbh->prepare('select * from test');
$sth->execute();
while (my @a=$sth->fetchrow_array()) {
        say join(",",@a);
}
$sth->finish();