#! perl
use strict;
use warnings;
use diagnostics;

open PERSON, "<", "ou3" or die "Cannot read 'ou3': $!";
open MGR, "<", "ou8" or die "Cannot read 'ou8': $!";
open OUT, ">", "buildAD.ldif" or die "Cannot write to 'buildAD.ldif': $!";

truncate (OUT, 0);

while (defined my $input1 = <PERSON>) {
        my $input2 = <MGR> or die "No file MGR for $input1";
        chomp $input1;
        chomp $input2;
        print OUT $input1;
        print OUT "changetype: modify";
        print OUT "replace: manager";
        print OUT $input2, "\n";
}

close PERSON;
close MGR;
close OUT;
exit;