my $dbh = DBI->connect("DBI:CSV:f_dir=/Proyecto/")
        or die "Cannot connect: " . $DBI::errstr;
    my $sth = $dbh->prepare("SELECT * from patentes.csv")
        or die "Cannot prepare: " . $dbh->errstr();
    $sth->execute() or die "Cannot execute: " . $sth->errstr();
while ( my @$row = $sth->fetch) {