#!/usr/bin/perl
use DBI;
my $host = '127.0.0.1\InstanceName';
my $usr = 'HostName\UserName';
my $pw = 'Password';
my $dsn = DRIVER=/usr/local/lib/libtdsodbc.so;SERVER=$host;PORT=4433;DATABASE=dataBase;UID=$usr;PW=$pw;TDS_Version=8.0";
my $dbh = DBI->connect('DBI:ODBC:'.$dsn) || die $DBI::errstr;