Select Code to Download

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

use strict;
use warnings;