sub lastuser {

  my($lastuid);

  my $lastuser =  $ldaps->search(
                    base    => "ou=people,$LDAPBASE",
                    filter  => "(uid=*)",
                    attrs   => ['uidNumber'],
                    scope   => 'one'
                  );
 if (defined ($VERBOSE)) {
   foreach my $entry ($lastuser->entries) { $entry->dump; }
 }

   foreach my $entry  ($lastuser->entries) {
     $lastuid = $entry->get('uidNumber');
   }

  print "LASTUID = \n";
  my $uidtopass = print Dumper($lastuid);


  return $uidtopass;

}



sub newuid {

   my $uidtopass = $_;
   my $newuid = $uidtopass+1;


  print "$newuid\n";
}



lastuser();
my ($uidtopass);
newuid("$uidtopass");


## Now we must unbind from LDAP, to prevent hung connections.

  $ldaps->unbind;