use strict;
use warnings;
use DBI;
use Data::Dumper;

my @drivers = DBI->available_drivers();

print Dumper(@drivers);

foreach my $driver (@drivers) {  print "Driver: $driver\n";  my @data_sources = DBI->data_sources($driver);
  foreach my $data_source (@data_sources) {
    print "\tData Source is $data_source\n";
  }
  print "\n";
}