Select Code to Download

           sub wanted {
               -l && !-e && print "bogus link: $File::Find::name\n";
           }

use File::Find;

find(\&remove_broken_symlinks, '/path/to/start');
...
    unlink($_) or die "Can't unlink $File::Find::name: $!\n";
  }
}