use warnings;
use strict;
use DBI;
use DBD::ODBC;
use Sys::Hostname;
...
my @dataSources  =  DBI->data_sources('ODBC');