Helps for locating free UIDs using getpwuid.
use Sys::User::UIDhelper;
# invokes it with the default values
my $foo = Sys::User::UIDhelper->new();
# sets the min to 2000 and the max to 4000
my $foo = Sys::User::UIDhelper->new(min=>2000, max=>4000);
# finds the first free one
my $first = $foo->firstfree();
if(defined($first)){
print $first."\n";
}else{
print "not found\n";
}
# finds the last free one
my $last = $foo->lastfree();
if(defined($last)){
print $last."\n";
}else{
print "not found\n";
}