use strict;
use warnings;
use DBI;

my $db = 'homo_sapiens_core_42_';
my $host = '192.168.1.200';
my $user = 'xx';
my $pass = 'yy';

DBI->trace(1);
print "HERE\n";

my $dbh = DBI->connect("DBI:mysql:$db;host=$host", 
                       $user, $pass, { RaiseError => 1 } ) or
   die ( "Couldn't connect to database: " . DBI->errstr );

print "DONE\n";