use strict;
use File::Find;
sub main;
my @dirlist;

main();
exit;


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

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

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

sub dostuff {
	print "$_\n"
}