my $db = DBI->connect( "dbi:ODBC:$dsn_name", q{}, q{}, { RaiseError => 1, AutoCommit => 1 } ) or die $DBI::errstr;