use strict;
use DBI;

# Hole alle verfügbaren Treiber über die entsprechende DBI Methode
my @treiber = DBI->available_drivers()
              or die "Keine Datenbanktreiber installiert.";

# Zeige alle Treiber in der Liste an
foreach my $tr(@treiber) 
  { print "$tr\n"; }