$ cat info.csv
id,count,desc,asc,row
1,2,foo,bar,10

$ perl -MDBI -COE -wE'my$dbh=DBI->connect("dbi:CSV:",undef,undef,{f_ext=>".csv/r"});my$sth=$dbh->prepare("select id,\x27\x{20ac}\x27 from info");$sth->execute;while(my$r=$sth->fetch){say for@$r;}'
1
€