#!/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;