my @dirs = grep -d, do {
  my %list;
  my @item;
  $list{$item[7]}++ while @item = getpwent;
  map "$_/.netscape", keys %list;
};