use strict; use warnings; use feature qw(say); use File::Find::Rule; say "Anzahl Dateien: " . File::Find::Rule->file()->name("*.pdw")->in("K:/CAD_FAB");