my $max = 0;
while (my @one = getpwent) {
  $max = $one[2] if $max < $one[2];
}
print $max + 1, "\n";
[download]

-- Randal L. Schwartz, Perl hacker