setpwent();
while(@list = getpwent()) {
  ($login,$home) = @list[0,7];
  print "home directory for $login is $home \n";
}
endpwent();