#!/usr/bin/perl -w # dbi2.pl vorhandene Datenbanktreiber use DBI; print "Content-type: text/html\n\n"; @drivers = DBI->available_drivers; print "vorhandene Treiber:
"; foreach (@driver){ print "$_
"; }