use v5.20;
use warnings;

use File::Find::Rule;

my @dirs = File::Find::Rule->directory()->maxdepth(1)->in('.');

say $_ for @dirs;