my $dbh = DBI->connect("dbi:ODBC:$DSN", {RaiseError => 1})
       or die "DB connection failure\n" . $DBI::errstr;