sub main {
    findit();
    # dostuff($_) for @dirlist;
}

sub findit {
    find(\&wanted, shift(@ARGV));
}

sub wanted {
    return unless -d $_;
    # push(@dirlist,$File::Find::name);
    dostuff($File::Find::name);
}

sub dostuff {
    print "$_\n"
}