push(@pathnames, "$File::Find::name"."/") if (-d);