Select Code to Download

my @stack = ".";
while(my $cd = pop @stack) {
...
        push @stack, "$cd/$_" if -d "$cd/$_";
    }
}

&traverse(".");
sub traverse {
...
        &traverse("$dir/$_") if -d "$dir/$_";
    }
}