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