Select Code to Download

  my $entry = $mesg->shift_entry();
  next unless $entry;

use Data::Dumper;
...
        $mesg = $ldap->search ( @args ) or die $!;
        print Dumper $mesg;