Modified to use File::Find instead of GNU findutils.