read users from ISVU CSV export

diff --git a/isvu-import.pl b/isvu-import.pl
new file mode 100755 (executable)
index 0000000..6a67057
--- /dev/null
+++ b/isvu-import.pl
@@ -0,0 +1,18 @@
+#!/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),$/;
+}