open my $person_fh, '<', "f1" or die "failed to open 'f1' $!";

my $line; 
 
while ($line = <PERSON>) {

while ( my $person = <$person_fh> ) {

#! perl  
use strict;  
use warnings;  
use diagnostics;  
 
open my $person_fh, "<", "f1" or die "Cannot read 'f1': $!";  
open my $mgr_fh, "<", "f2" or die "Cannot read 'f2': $!";  
open my OUT, ">", "buildAD.ldif" or die "Cannot write to 'buildAD.ldif': $!";  
 
my $person;  
my $person2;  
 
while (my $person = <$person_fh>) {  
chomp;  
my @dn1 = split(/\s+/,$line);  
my $count = scalar(@dn1);  
print OUT "$person";  
print OUT "changetype: modify";  
print OUT "replace: manager";  
 
#while ($line2 = <$MGR>) {  
#chomp;  
#my @dn2 = split(/\s+/,$line2);  
#my $count2 = scalar(@dn2);  
#print $OUT $line2, "\n", if ($count == $count2);  
#}  
}  
 
close $person_fh;  
close MGR;  
close OUT;  
exit;  

#! perl 
use strict; 
use warnings; 
use diagnostics;  
 
use Net::LDAP; 
use Net::LDAP::Entry; 
use Net::LDAP::Search; 
use Net::LDAP::LDIF;  
 
open PERSON, "<", "ou3" or die "Cannot open 'ou3': $!"; 
open MGR, "<", "ou8" or die "Cannot open 'ou8': $!"; 
open OUT, ">", "buildAD.ldif" or die "Cannot open 'buildAD.ldif': $!"; 
  
 
my $HOST = "11"; 
my $ADMIN = "cn=corp"; 
my $PWD = "0"; 
my $BASEDN = "dc=corp";  
 
my $ldap = Net::LDAP->new("$HOST", port=>389) or die "$@"; 
my $dn = $ldap->bind("$ADMIN", password=>"$PWD"); 
my @attr = "1.1"; 
my $result = Net::LDAP::LDIF->new( "buildAD.ldif", "a", wrap=>40 );  
 
while (<PERSON>){ 
chomp; 
$dn = $ldap->search( #return only the employeeID DN 
        base => "$BASEDN", 
        filter => "(&(objectClass=user)(employeeID=$_))", 
        scope => "sub", 
        attrs => ['1.1'] 
        );  
 
my $entry = $dn->pop_entry(); 
$result->write_entry($entry); 
print OUT "changetype: modify"; 
print OUT "replace: manager"; 
}  
 
$dn = $ldap->unbind;  #session ends  
 
close OUT or die "Cannot close in-memory file: $!"; 
close MGR or die "Cannot close in-memory file: $!"; 
close PERSON or die "Cannot close in-memory file: $!";