if (-e $fitem_pathname) {
    if (-d $fitem_pathname) {
      unless ($_ eq "..") {
        unless ($_ eq ".") {
          $count++;
        }
      }
    }
  }