#!C:/Perl/bin/perl.exe -w
# dbi3.pl vorhandene Datenquellen
use DBI;
print "Content-type: text/html\n\n";
my $dbh = DBI->connect("DBI:mysql:database=adressen;host=localhost",
	"root", "",
	{'RaiseError' => 1});
my @sources = DBI->data_sources("mysql",{"localhost" => $host, "3306" => $port});
@drivers = DBI->available_drivers;
print "vorhandene Datenquellen:<br>";
for (@drivers)
	{
		print join("\n", DBI->data_sources($_));
	}