setpwent;
while (@user=getpwent) {
    ($name,$passwd,$uid,$gid,$quota,$comment,
	$gcos,$dir,$shell) = @user;
    _B_O_D_Y
}
endpwent;
