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

print "Available DBI Drivers and Data Sources:\n\n";
my @drivers = DBI->available_drivers('quiet');
my @sources;

foreach my $driver (@drivers) {
	print "$driver\n";
	@sources = eval { DBI->data_sources($driver) };
	if($@) {
		print "\tError: ",substr($@,0,60),"\n";
	} elsif (@sources) {
		foreach(@sources) {
			print "\t$_\n";
		}
	} else {
		print "\tNo known data sources\n";
	}
}

##</code><code>##

Available DBI Drivers and Data Sources:

ADO
        No known data sources
DBM
        DBI:DBM:f_dir=.
ExampleP
        dbi:ExampleP:dir=.
File
        DBI:File:f_dir=.
Gofer
        No known data sources
ODBC
        dbi:ODBC:dBASE Files
        dbi:ODBC:Excel Files
        dbi:ODBC:MS Access Database
Pg
        No known data sources
Proxy
        Error: install_driver(Proxy) failed: Can't locate RPC/PlClient.pm i
SQLite
        No known data sources
Sponge
        No known data sources
mysql
        No known data sources
Press any key to continue . . .

##</code><code>##

mysql> show databases;
+--------------------+
| Database           |
+--------------------+
| information_schema |
| mysql              |
| performance_schema |
| test               |
+--------------------+
4 rows in set (0.00 sec)