my $dsn = "dbi:mysql:$P_BASE;mysql_read_default_file=/etc/my.cnf;host=$MysqlHOST";
my $dbh = DBI->connect($dsn, $MysqlUSER, $MysqlPAWD, {RaiseError => 1}) or error ($DBI::errstr);