Re: perl script to print just directory names

[Kenosis]

Find::File::Rule can assist with this. It is recursive:

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;