#!/usr/bin/perl

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

find(
        {
                wanted => sub {
                        return unless -l $File::Find::name;
                        print "Found a symlink: $File::Find::name\n";
                }
        },
        '.'
);