my $dbhost = "legendenwelt.de"; 
my $dbuser = "USER"; 
my $dbpass = "XXXXX";
my $dbname = "DBASE";

# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost",
$dbuser, $dbpass,
{'RaiseError' => 1});

##</code><code>##

DBI connect('database=DBASE;host=legendenwelt.de','USER',...) failed: Can't connect to MySQL server on 'legendenwelt.de' (10060) at H:\work\Tracking System\TestProgram.pl line 26