$dbh=DBI->connect("dbi:Oracle:$xmlArray[$flagArray[$outerCounter]][0]","$xmlArray[$flagArray[$outerCounter]][1]","$xmlArray[$flagArray[$outerCounter]][2]",{AutoCommit=>0}) or die "Can't log in: $!" open FILE, " }; printf "\nFinal sql :: %s \n",$file_contents ; my $batch = DBIx::MultiStatementDo->new( dbh => $dbh ); my @results = $batch->do( $file_contents ) or die $batch->dbh->errstr; print scalar(@results) . ' statements successfully executed!'; $dbh->disconnect;