my $entry = Net::LDAP::Entry->new;   # covers $entry from `foreach my $entry (...`

##</code><code>##

use strict;
use warnings;