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