perl -MDBI -e '
@drivers = DBI->available_drivers;
for (@drivers) {
print join("\n", DBI->data_sources($_));
}'