opendir DIR, "$config{'basepath'}$key" or &oops("Category directory $key could not be opened."); readdir DIR;readdir DIR; my $numfiles = scalar @{[readdir DIR]}; closedir DIR;