--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use DBI;
+use Data::Dump qw/dump/;
+use Algorithm::CheckDigits;
+use Text::Unaccent;
+
+my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8' }) || die $dbi::errstr;
+
+my $s = $c->prepare(qq{
+select * from brucosi_2011_ISVU
+});
+$s->execute;
+
+while( my $row = $s->fetchrow_hashref ) {
+ print "# row = ",dump($row),$/;
+}