use strict;
use warnings;
use 5.010;

use File::Find qw/find/;

my $dir = 'dirname';

my @all;

#given ($dir) {
    #when (-d) {
        my %options = (
            wanted => sub {
                say;
            },
            no_chdir => 1,
        );
        find \%options, $dir;
    #}
#}

local $" = "\n";
say "@all";