Select Code to Download

use strict;
use warnings;
...
        search_dir($entry) if -d $entry;
    }
}

use strict;
use warnings;
...
        push @stack, $entry if -d $entry;
    }
}

use strict;
use warnings;
...
    print $entry, "\n" and next if -f $entry;
    push @stack, glob("$entry/*");
}

use strict;
use warnings;
...
    print $entry, "\n" and next if -f $entry;
    unshift @stack, glob("$entry/*");
}