or download this
$ cat info.csv
id,count,desc,asc,row
...
$ perl -MDBI -COE -wE'my$dbh=DBI->connect("dbi:CSV:",undef,undef,{f_ex
+t=>".csv/r"});my$sth=$dbh->prepare("select id,\x27\x{20ac}\x27 from i
+nfo");$sth->execute;while(my$r=$sth->fetch){say for@$r;}'
1
€