use strict; use warnings; use File::Find::Rule; my @files = File::Find::Rule->file()->in('/my/path'); print scalar @files, $/;