use DBI;

foreach my $driver( DBI->available_drivers) {
  print "\n$driver " . join("\n\t",DBI->data_sources($driver));
}