my $dsn = "DRIVER=/usr/local/lib/libtdsodbc.so;SERVER=$host;DATABASE=$db;PORT=4433;UID=$usr;PWD=$pw;TDS_Version=8.0;";
my $dbh = DBI->connect('DBI:ODBC:'.$dsn) || die $DBI::errstr;