#!/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";
}