You can use File::Find::Closures under the same terms as Perl itself.