#!/usr/bin/perl

use strict;
use DBI;

my @drivers;
@drivers = DBI->available_drivers;

foreach my $driver (@drivers) {
  print "$driver driver is available\n";
  my @dsns = DBI->data_sources($driver);
  foreach my $dsn (@dsns) {
    print "\tDSN: $dsn\n";
  }
}