#!/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),$/;
}
