in reply to Deleting by Age!
I think a combination of File::Find and File::stat (with use of the mtime method) may do the trick.