perl检测无效符号链接

[root@dou perlref]# cat callback5.pl      
#!/usr/bin/perl -w      
use strict;      

use File::Find;      
sub what_to_do {      
        -1 && !-e && print "bogus link: $File::Find::name\n";      
}      
my @starting = qw(.);      
find({wanted=>\&what_to_do,no_chdir=>1},@starting);