my $resultLdapSearch;
{
open my $P, "-|", "ldapmodify", "-h", $ldap_server, "-D", "cn=Directory Manager", "-w", $dir_mgr_pwd, "-f", $ldap_modify_file or
    die "cannot exec ldapmodify: $!";
local $/ = undef;
defined($resultLdapSearch = <$P>) or 
    die "error reading from pipe: $!";
close $P or 
   die $! ? "error closing pipe: $!" : "ldap_server exitted with a nonzero exit status: $?";
}