use DBI;
use DBD::ODBC;
$|=1;
map {
  print "Data sources for $_: " . join("
", DBI->data_sources($_)). "
"
  }
grep(!/ADO|template/, DBI->available_drivers);