sub buildUserHash {
  use User::pwent;
  my %users;
  while (my $obj = getpwent) { $users{$obj->name} = $obj }
  return \%users;
}