#!/Perl/bin/perl

use strict;
use warnings;
use DBI;
use CGI;
use Data::Dumper qw/Dumper/;

# -- mysql-speziabehandlung
my $host = '127.0.0.1';
my $port = '3306';
my $user = 'Test';
my $pass = 'test';
my @databases = DBI->data_sources("mysql", {"host" => $host, "port" => $port, "user" => $user, password => $pass});
print Dumper @databases;

exit(0);