In response to your updated question

use strict;
use warnings;

use File::Find;

main();
exit;

sub main {
{
    dostuff($_) foreach findit(shift(@ARGV));
}

sub findit {
    my @dirlist;
    find(sub {
        return unless -d $_;
        push(@dirlist, $File::Find::name);
    }, @_);
    return @dirlist;
}

sub dostuff {
    my ($dir) = @_;
    print "$dir\n"
}
[download]

This is nothing more than applying my original node.