#!C:/Perl/bin/perl.exe -w
# dbi2.pl vorhandene Datenbanktreiber
use strict;
use warnings;
use DBI;
use CGI;
my $q = CGI->new();
#print "Content-type: text/html\n\n";
print $q->header();
my $driver = "mysql";
my @sources = DBI ->data_sources($driver); 
print "vorhandene Datenquellen:<br>";
foreach (@sources){
print "$_<br>";
}