my @plain_files;
$dir->recurse(callback => sub {
    my $file = shift; # Path::Class object
    return if $file->is_dir;
    push @plain_files, $file;
});