my $dbh = DBI->connect("dbi:ODBC:$DSN",{RaiseError => 1, PrintError => 1});