my $dir;
for ( file($path)->dir->dir_list() ) {
   $dir = $dir ? $dir->subdir($_) : dir($_);
   say $dir;
}