while (my @fields = (getpwent)[6,7]) {
  map {print "$_\n"} @fields;
  print ("-" x 80);
}