#!/usr/bin/perl -w

use DBI;

my @drivers = DBI->available_drivers;
die 'no drivers installed' unless @drivers;

for my $driver (@drivers) {
    print "driver:\t$driver\n";
    my @dsns = DBI->data_sources($driver);
    for my $dsn (@dsns) {
        print "dsn:\t$dsn\n";
    }
}

##</code><code>##

C:\Perl\source>perl dbtest.pl
driver: ExampleP
dsn:    dbi:ExampleP:dir=.
driver: ODBC
dsn:    DBI:ODBC:MS Access Database
dsn:    DBI:ODBC:Excel Files
dsn:    DBI:ODBC:dBASE Files
dsn:    DBI:ODBC:Visual FoxPro Tables
dsn:    DBI:ODBC:Visual FoxPro Database
dsn:    DBI:ODBC:testdb
driver: Proxy
install_driver(Proxy) failed: Can't locate RPC/PlClient.pm in @INC (@INC contain
s: C:/Perl/lib C:/Perl/site/lib .) at C:/Perl/site/lib/DBD/Proxy.pm line 28.
BEGIN failed--compilation aborted at C:/Perl/site/lib/DBD/Proxy.pm line 28.
Compilation failed in require at (eval 3) line 3.
Perhaps a module that DBD::Proxy requires hasn't been fully installed
 at dbtest.pl line 10

C:\Perl\source>