File::Find can do all your directory tree searching. Within your "wanted" routine, you can use file test operators or stat to increment counts and size totals and check their age. File::Basename or File::Spec will help in splitting up path names.

All those modules are distributed with perl, so you can read their documentation with perldoc.