Select Code to Download

unshift @queue, map { [$_, $hash] } @new_paths;

while (my $next = shift @queue) {
    my ($path, $ref) = @$next;
    ...

$ref->{$basename} = do { ... };

use strict;
use warnings;
...
    DD == 2 ? dd $queue : print Dumper($queue);
    print '-' x 50, "\n";
}

14:34 >perl 1620_SoPW.pl
(0) @queue:
...
        };

14:34 >