One more style note:

    foreach (in $root) {
        my $thing = $_;
[download]

is more idiomatically written:

    foreach my $thing (in $root) {
[download]

or more commonly:

    for my $thing (in $root) {
[download]