use strict;
use warnings;
use DBI;

my @drivers = DBI->available_drivers();
print "Alle verfügbar:\n";
map {
 print "verfügbar: ",$_,"\n";
}@drivers;