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

use File::Find;

find(\&remove_broken_symlinks, '/path/to/start');

sub remove_broken_symlinks {
  if (-l && !-e) {
    print "Removing broken symlink: $File::Find::name\n";
    unlink($_) or die "Can't unlink $File::Find::name: $!\n";
  }
}
[download]

find2perl /top/dir -eval '-l and not -e' -ls -eval unlink | perl
[download]

-- Randal L. Schwartz, Perl hacker

Look at perldoc -f readder (and opendir) for the directory traversal (or File::Find, or your favorite way to snarf filenames). Then, for each file you could do something like:

... stuff to get filename ..
.. loop through  those files..
for my $file (@files) {
    my $link = readlink($file) || "Fooey";

    if ($link ne "Fooey") {
        if (-e $link) {
            print "symlink OK, moving on";
        }else{
            unlink $file;
        }
    }
}
[download]

You get the idea :)

Cheers,
KM