foreach $dn ($dn->entries) { push @attr, $dn->dump; } 
#$Data::Dumper::Purity = 1; 
#$Data::Dumper::Deepcopy = 1; 
my $ev = Data::Dumper->Dump($dn, qw(dn)); 
print OUT $ev; 
}