use strict;
use warnings;
use File::Find;

# Return a list of all symlinks found under $dir.
sub SymLinkFind {
  my $dir = shift;
  my @SymLinks;
  find sub { -l and push @SymLinks, $File::Find::name }, $dir;
  return @SymLinks;
}

my @symlinks = SymLinkFind(".");
print "Found ", scalar(@symlinks), " Symbolic Links...\n";
print "$_\n" for @symlinks;