[FreeTDS]
Description     = TDS Conection
Driver          = /usr/lib/cygtdsodbc.dll
Setup           = /usr/lib/cygtdsodbc.dll
UsageCount      = 1
FileUsage       = 1

##</code><code>##

#!perl
use strict;
use warnings;
use 5.020;

use DBI;

my ( $user, $pass ) = ( 'username goes here', 'password goes here' );

my $dsn =
{
   driver   => 'FreeTDS',
   server   => 'my.server.host.name',
   database => 'name_of_db_here',
   port     => 1433,
   tds_ver  => '8.0'
};
$dsn = sprintf 'dbi:ODBC:DRIVER={%s};SERVER=%s;database=%s;port=%s;tds_version=%s;',
   $dsn->{driver},
   $dsn->{server},
   $dsn->{database},
   $dsn->{port},
   $dsn->{tds_ver};

my $dbi_opts =
{
   PrintError     => 0,
   RaiseError     => 1,
   AutoCommit     => 1,
   LongReadLen    => 24 * 1024,
   LongTruncOk    => 1,
   odbc_utf8_on   => 1,
};

my $dbh = DBI->connect ( $dsn, $user, $pass, $dbi_opts );

my $rows = $dbh->selectall_arrayref( 'SELECT * from some_table_you_know' );

use Data::Dumper;

say Dumper $_ for @$rows