my $dbh = DBI->connect( 'dbi:Oracle:qaecom1',