use File::Find::Rule;
use Smart::Comments '###';

my $path = '/home/myself';

mkdir "$path/nothing";

my $finder= File::Find::Rule->new;
$finder->directory();
$finder->empty();
my @found = $finder->in($path);
### @found