#!/usr/bin/perl
use strict;
use warnings;

use DBI;

my @db_drivers = DBI->available_drivers();

foreach my $db_driver (@db_drivers) {

	print "$db_driver\n";
	
	my @data_sources = DBI->data_sources($db_driver);
	
	print "\t",  join(", ",@data_sources), "\n";	
	
}