Пример

use DBI;

my @drivers = DBI->available_drivers;

print "Доступны следующие драйверы:\n" . join("\n",@drivers) . "\n Ho нас интересуют только mSQL и mysql. :)\n";