$db=DBI->connect("DBI:Oracle:sid=$DBSID;host=$DBHOST;port=$DBPORT;","$DBUSER",`/path/shared_C_program`) || ($err=$db->errstr);