in reply to Recursion not working

The module File::Find would do the recursion for you.

In Section Seekers of Perl Wisdom