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;