Select Code to Download

use Data::Dumper;
use Net::LDAP;
use Net::LDAP::Control::Paged;
use Net::LDAP::Constant ( "LDAP_CONTROL_PAGED" );

while(1) {
  # Perform search
...
       print Dumper($mail);
     }
    }