#!C:\Perl\bin\perl.exe -w
# dbi3.pl vorhandene Datenquellen

use strict;
use warnings;
use DBI;
use CGI;

print "Content-type: text/html\n\n";

my $host = '127.0.0.1';
my $port = '3306';
my $user = 'root';
my $pass = '';

my @databases = DBI->data_sources("mysql",
{"host" => $host, "port" => $port, "user" => $user, password => $pass});
print "<b>vorhandene Datenquellen:</b>
<br>
<br>";
foreach (@databases){
print "$_<br>";
}