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}
	);

##</code><code>##

     find(
	{wanted=>
		sub{if (-l && !-e){
			my $dir=$File::Find::dir;
			$dir=~s/\\/\\\\/gxsm;
			push @dangle,$File::Find::name;
			}
			return 1
			},follow=>0}, 
			@{$dirs}
	);