foreach my $driver(DBI->available_drivers) { print "$driver\n"; }