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