#!C:/Perl/bin/perl.exe -w
# dbi3.pl vorhandene Datenquellen
use DBI;
print "Content-type: text/html\n\n";
my $driver = "mysql";
my @sources = DBI ->data_sources($driver);
print "vorhandene Datenquellen (insgesamt " . scalar( @sources ) . "):<br />";
foreach my $s (@sources) {
    print "$s<br>";
}