Ooh, good catch. You get a ++ from me, and I offer this in reply:

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

Now, you have a hash of User::pwent objects.

japhy -- Perl and Regex Hacker