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