#! perl -w use strict; use DBI; my @driver_names = DBI->available_drivers; print join("\n",@driver_names), "\n"; my @dataSources = DBI->data_sources ("ODBC"); print join("\n-",@dataSources);