$ENV{ORACLE_HOME}="/home/oracle/product/10.2.0/db_1"; our $conn1 = DBI->connect("dbi:Oracle:host=10.0.0.1;sid=dev;","queryeditor","editor"); die($DBI::errstr) unless $conn1; my $connection_detail = "select DBDESCRIPTION from qe_dbnamelist where DBNAME='$dbname'"; my $connection_records = $conn1->prepare($connection_detail) or die("Error on preparing the sql statement \n"); $connection_records->execute() or die("Error on getting the data from QE_GROUP \n"); print "Query String Part"; @connection_resultset= $connection_records->fetchrow_array; $dbconnectionstring = $connection_resultset[0]; print $dbconnectionstring; our $conn2 = DBI->connect($dbconnectionstring); die($DBI::errstr) unless $conn2; print "$dbname Database Successfully Connected !!!";