View source. It was +4, not +7. (I've since edited it to +1.) And the problem with such solutions (that use explicit recursion instead of File::Find) is that they are non-portable, are often harder to get right, and create a "bad meme" virus. These must be contained and innoculated, lest they inflict pain upon the innocent.

-- Randal L. Schwartz, Perl hacker