#Open an Oracle session
    $DBH = DBI->connect( "dbi:Oracle:$sid", $usr, $pwd )
       or die "Unable to  connect to $sid: $DBI::errstr";
    $DBH->{RaiseError}  = 1; 
    $DBH->{LongReadLen} = 5242880;
    $DBH->{LongTruncOk} = 0;