my $txn = $oMan->createTransaction();
  eval {

       my $txnUpd    = $oMan->createUpdateContext();

       my $xmlinput = $oMan->createLocalFileInputStream($arcXML1);
       print "inserta";

       $oCont->putDocument($txn, $arcXML, $xmlinput, $txnUpd);
       $txn->commit();
       print "Se agrego el archivo: $arcXML1 \n ";
     };
     if (my $e = catch std::exception)
     {
        warn $e->getExceptionCode . "  " . $e->what() . "\n";
        $txn->abort();
        exit( -1 );
     }