If you want to do it in Perl then I'm pretty sure that you will be glad to know that File::Find is here ;)
check perldoc File::Find

NAME
       File::Find - Traverse a directory tree.

SYNOPSIS
           use File::Find;
           find(\&wanted, @directories_to_search);
           sub wanted { ... }

           use File::Find;
           finddepth(\&wanted, @directories_to_search);
           sub wanted { ... }

           use File::Find;
           find({ wanted => \&process, follow => 1 }, '.');
[download]

The rest is in the perldoc ;)