use strict;
use File::Find;

main();
exit;


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

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

sub dostuff {
    print "$_\n"
}