NET::LDAP Search Works, pop_entry problematic #2

Making these changes: 

my $true = 1; 
while ($true) { 
print OUT "$dn", "\n"; 
#        $entry = $dn->pop_entry; 
#        print $result->write_entry($entry); 
        #next unless $dn; 
        print OUT "changetype: modify", "\n"; 
        print OUT "replace: manager", "\n"; 
} 



Causes this output...so is there is another method to decode the HASH? 



Net::LDAP::Search=HASH(0x1844ba4) 
changetype: modify 
replace: manager 
Net::LDAP::Search=HASH(0x1844ba4) 
changetype: modify 
replace: manager 
Net::LDAP::Search=HASH(0x1844ba4) 
changetype: modify 
replace: manager 





Thank you very much for your time and advise.