Select Code to Download

my @dk = (  {data => [
                    {
...
                     }
                    ]
            });

sub _directoryTree {
    my ($directory,$filter) = @_;
...
    }
    return \@dirs;
}