my $sqlserver = 'SERVERNAME';
my $sqldb     = 'DBNAME';
my $dbs       = "dbi:ODBC:Driver=SQL Server;Database=$sqldb;Server=$sqlserver;Trusted_Connection=yes";
my $dbhandle  = DBI->connect($dbs, undef, undef, {RaiseError => 1, AutoCommit => 1}) or die DBI->errstr();