Help for this page
DBI->connect("dbi:Oracle:$db_name:$db_host:$db_port", $db_user, $db_pa +ss);
db_name = (DESCRIPTION = (ADDRESS_LIST = ... (SERVICE_NAME = db_name) ) )