my $dbh = DBI->connect( 'dbi:ODBC:sometable','someuser', 'somepass', {RaiseError=>1}) or die DBI->errstr;