use strict;
use DBI;


 my $DBI_DSN = "dbi:Oracle:DB_NAME";
 my $DBI_USER = "user"; 
 my $DBI_PASS = "password";

 $dbh = DBI->connect($DBI_DSN, $DBI_USER, $DBI_PASS,
                    {AutoCommit => 0, RaiseError => 0,
                     LongReadLen => 2000000, LongTruncOk => 0}) ;