use strict;
use warnings;
use File::Find;

find( sub { return if $_ eq '.' or $_ eq '..'; print $_, $/ if -d }, '.' );

#OR
my @dir;

find(
    sub {
        return if $_ eq '.' or $_ eq '..';
        if (-d) {
            print $_, $/;    # just to test
            push @dir, $_;   # updated
        }
    },
    '.'                      # this can be your "C:\Input"
);

use DDP; p @dir;