package MyAwesomeProgram;
use Utils::Ldap::CompanyLdap;

sub read_users {
   # code that reads users from Ldap
   # searchGetEntries/get_value is provided by Utils::Ldap::CompanyLdap
   foreach my $entry ( $ldap->searchGetEntries() ) {
      my $uid = $entry->get_value( 'uid' );
      #... do something more
   }

}

1;