Select Code to Download

#!/usr/bin/env perl -l

...
        exit;   # <<<=== PROBLEM HERE!
    }
}

sub multi_dir {
    ...
...
        }
    }
}

...
print "PARENT($$): Before multi_dir() call";
...

    return 0;
}

if ($limit) {
    @subs = @subs[1 .. $limit];
}

if (defined $limit and $limit > @subs) {
    @subs = @subs[0 .. $limit - 1];
}

while (keys %children >= $max) {

}