#!/usr/bin/perl -w
use File::Find;
find(\&wanted, shift || '.');
sub wanted {
    -l and not -e and print "bogus link: $File::Find::name\n";
}