use strict;
use lib 'c:/Perl/lib/DBI';
use DBI;
my $dbh;
my $dbConnectString = '(LOAD_BALANCE=on)'|| 
                      '(ADDRESS=(PROTOCOL=TCP)(HOST=myhost1)(PORT=1521))'||
                      '(ADDRESS=(PROTOCOL=TCP)(HOST=myhost2)(PORT=1521))'||
                      '(CONNECT_DATA=(SERVICE_NAME=pcipJDBC.oracle.com))';
my $dbUser = 'myUsername';
my $dbPwd  = 'myPassword';
                                                                       
unless ($dbh = DBI->connect($dbConnectString, $dbUser, $dbPwd, {RaiseError => 0, AutoCommit => 0 })) { # Handle for PROD database connection
  die "Unable to connect to PCI Oracle as user $dbUser: $DBI::errstr: $!";
}
$dbh->{RaiseError} = 1;                                                        # So we don't have to check every DBI call we set RaiseError.