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

   dostuff($_) for @dirlist;
}

sub dostuff {
   print "$_\n";
}