#!/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";	
	
}

##</code><code>##

$ perl DBI_data_sources.pl
DBM
        DBI:DBM:f_dir=.
ExampleP
        dbi:ExampleP:dir=.
File
        DBI:File:f_dir=.
Gofer

Proxy

SQLite

Sponge