Find Broken Symlinks

• In the current directory:

perl -le 'foreach(<*>){ -l && !-e && print}'

• Or recursively:

perl -MFile::Find -le 'find(sub { -l && !-e &&
  print $File::Find::name }, ".")';