Danke erst einmal. Ich bleibe aber bei File::Find und nutze einfach einen regulären Ausdruck, um Unterunterordner auszuschließen.