#!/usr/bin/perl -w
use strict;
use DBI;
use DBD::ODBC;

#my $ODBCdriver = 'SQL Server';
my $ODBCdriver  = 'ODBC Driver 17 for SQL Server';
my $SQLport     = '4433';
my $SQLserver   = 'FC4FA9\SQLEXPRESS';
my $SQLdatabase = '';
my $SQLuser     = '';
my $SQLpassword = '';

connect_IB($ODBCdriver, $SQLport, $SQLserver, $SQLdatabase, $SQLuser, $SQLpassword);

sub connect_IB {
    my ($ODBCdriver, $SQLport, $SQLserver, $SQLdatabase, $SQLuser, $SQLpassword) = @_;

    print "Connecting SERVER...\n";
	my $dbh = DBI->connect("dbi:ODBC:Driver={$ODBCdriver};Server=$SQLserver;UID=$SQLuser;PWD=$SQLpassword", {PrintError => 0, RaiseError => 1, AutoCommit => 1, FetchHashKeyName => 'NAME_lc'});
    print "Out Connection String: ", $dbh->{odbc_out_connect_string}, "\n";
    print "Connected...\n";

    print "Disconnecting...\n";
    $dbh->disconnect if ($dbh);
    print "Disconnected...\n";
}

##</code><code>##

DBI connect('Driver={ODBC Driver 17 for SQL Server};Server=FC4FA9\SQLEXPRESS;UID=;PWD=;Port=4433','HASH(0x6ba7d0)',...) failed: [Microsoft][ODBC Driver 17 for SQL Server][SQL Server]Login failed for user ''. (SQL-28000) [state was 28000 now 01S00]
[Microsoft][ODBC Driver 17 for SQL Server]Invalid connection string attribute (SQL-01S00) at .\ODBC.pl line 20.