use File::Finder; # my wrapper around File::Find @nowhere = File::Finder->eval(sub { -l and not -e })->in($ENV{HOME});