my $DSN = "driver={SQL Server};Server=$server;database=$database;Trusted_Connection=yes";
my $dbh = DBI->connect("dbi:ODBC:$DSN") || die "Error: $DBI::errstr";