my $connect_string
    = 'DRIVER={SQL Server};'
    . "SERVER=$server;"
    . 'Trusted_Connection=Yes;'
    ;
my $dbh = DBI->connect(
    "dbi:ODBC:$connect_string",
    undef,
    undef,
    { RaiseError => 1 },
);