Select Code to Download

use Devel::Pointer;
...
    my $obj = deref ( $addr ) ;            
    my $root = shift ( @{$obj->{dirToFetch}} ) ;

...
sub _walk {
...
}
...
        threads->create ( '_walk' , $self ) -> join;

...
        push my @running, threads->create ( '_walk' , $self );
...
    my $next = shift @running;
    $next->join;
};

#! perl -slw
use strict;
...
print while defined( $_ = $files->dequeue );

print 'Done';