The available_drivers() class method may be of use. See DBI for more details:

my $driver = 'mysql';
print "Found $driver!\n" if ( grep { $driver } DBI->available_drivers(
+) );
[download]