Try User::pwent it should do the trick. Also try getpwent.

Since the perldoc page seems empty, here is an example of getpwent:

($name,$pass,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = getpwent()
+;
[download]

Hope that helps.

*G*