Select Code to Download

Select or download this

DBI->connect(
    "dbi:ODBC:Driver={$ODBCdriver};Server=$SQLserver;Database=$SQLdata
+base;UID=$SQLuser;PWD=$SQLpassword;Port=$SQLport",
...
      FetchHashKeyName => 'NAME_lc'
    },
);

Select or download this

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