perlを使うまでも無い。
for f in `find . -type l`;do stat -L $f >/dev/null 2>&1 || echo $f;done