Driver config file odbcinst.ini
[FreeTDS]
Driver=/usr/local/freetds/lib/libtdsodbc.so
Setup=/usr/local/freetds/lib/libtdsodbc.so
Threading=0
FileUsage=1
DontDLClose=1

##</code><code>##

Perl Program
#!/usr/bin/perl
use strict;
use DBI;

$dsn = "dbi:ODBC:DRIVER={FreeTDS};Server=$server;database=$database;";
$dbh = DBI->connect("$dsn","$user","$password") or die "\n$DBI::errstr\n";