Path::Classが便利そうだったのでメモ

use strict;
use warnings;

use Path::Class;
use Perl6::Say;

dir("/Users/syou6162/hoge")->recurse(
    callback => sub {
        my $path = shift;
        say $path;
    }
);

おおお。