use strict; use warnings; use Path::Class; use Perl6::Say; dir("/Users/syou6162/hoge")->recurse( callback => sub { my $path = shift; say $path; } ); おおお。