#!/usr/bin/perl
use warnings; use strict;

use DBI;

my $dbconnectionstring = q{"dbi:Oracle:host=10.0.0.1;sid=dev;","queryeditor","editor"};

our $conn2 = DBI->connect($dbconnectionstring);
die($DBI::errstr) unless $conn2;

##</code><code>##

use Text::CSV_XS;

my $csv = Text::CSV_XS->new({
                 sep_char => ",",
                 quote_char => '"',
              });

$csv->parse($dbconnectionstring);
my ($dsn,$user,$pass) = $csv->fields();

our $conn2 = DBI->connect($dsn, $user, $pass);
die($DBI::errstr) unless $conn2;