note Kenosis <p>[http://search.cpan.org/~rclamp/File-Find-Rule-0.33/lib/File/Find/Rule.pm|Find::File::Rule] can assist with this. It is recursive:</p> <c> use strict; use warnings; use File::Find::Rule; my $base_dir = 'C:\Input'; my @dirs = File::Find::Rule->directory->in( $base_dir ); print $_, "\n" for @dirs; </c> 1007640 1007640