sub count
{
my $name = $File::Find::name;
return if -d $name;