my $dir;
my @paths = map { $dir = $dir ? $dir->subdir($_) : dir($_) }
   file($path)->dir->dir_list();