#! /usr/bin/env perl
use Cwd;
use File::Find;

find(\&wanted, "./v711");

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

