DBI->connect(
    "dbi:ODBC:Driver={$ODBCdriver};Server=$SQLserver;Database=$SQLdatabase;UID=$SQLuser;PWD=$SQLpassword;Port=$SQLport",
    { PrintError => 0,
      RaiseError => 1,
      AutoCommit => $AutoCommit,
      FetchHashKeyName => 'NAME_lc'
    },
);

##</code><code>##

my $dsn = "dbi:ODBC:Driver={$ODBCdriver};Server=$SQLserver;Database=$SQLdatabase,$SQLport;UID=$SQLuser;PWD=$SQLpassword; ...";
my $dbi_options =     { PrintError => 0,
      RaiseError => 1,
      AutoCommit => $AutoCommit,
      FetchHashKeyName => 'NAME_lc'
    };
my $dbh = DBI->connect( $dsn, undef, undef, $dbi_options );