Alister West

home is where your code is ...

File::Find

my @found;
find sub {
        $DEBUG and warn $File::Find::name;
        push @found, $File::Find::name
            if  -f $File::Find::name
                and $_ !~ m/^\./       # no dotfiles e.g. ".dropbox"
                and $_ =~ /\.\w*$/;    # must have extension
    }, $basedir;

$DEBUG and say "Found: ". @found . " files";
By Alister West