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