use File::Find::Rule;

my $dir = shift || ".";
print join "\n", File::Find::Rule->symlink->in($dir);