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