#!/usr/local/bin/perl

use strict;
use DBI;

my @drivers = ();

@drivers = DBI->available_drivers;

print "\nAvailable Perl DBD drivers on this system\n";

foreach my $driver (@drivers) {print "$driver\n";}