Instead of parsing the passwd file (which would be incorrect if you're using NIS, for example), use the getpwent functions:

while (my @p = getpwent) {
  my ($user, $uid) = @p[0,1];
  next if $uid < 100;
  .. rest of your loop ..
}
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.