use Modern::Perl;
use DBI;

my @dataSources  =  DBI->data_sources('ODBC');
say "@dataSources";