my %findopts=(wanted=>sub{},follow => 1,
    dangling_symlinks => 
	sub  {
			my ($link,$dir)=@_;
			if (-l $link){
			$dangle{$dir.$link}=$dir;#$File::Find::name
			}
		}
	,follow_skip => 2
     );

find(\%findopts,
			@{$dirs}
	);