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