my $dsn         = "dbi:ODBC:Driver={SQL Server};Server=xxxx\\yyyy";

$dbh = DBI->connect($dsn, $user, $password,{ RaiseError => 1, AutoCommit => 0 }) or die;