my $mysql_server	= 192.168.1.100;
my $mysql_user		= "mysqlUser";
my $mysql_password	= "mysqlPass";
my $mysql_db		= "yourDatabase";
$DBH::conn = DBI->connect("DBI:mysql:$mysql_db;$mysql_server",$mysql_user,$mysql_password,{ PrintError => 1, RaiseError => 0,) || die $DBI::errstr; 

return $DBH::conn;