#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
sub SymLinkFind($);

my %params;
$params{recurseDir} = ".";
SymLinkFind(\%params);
print "Found ", $params{numoLinks}, " Symbolic Links...\n";

sub SymLinkFind($) {
  my $reparams = shift;
  my @SymLinks;

  sub inlineFind {
    my $namey = $File::Find::name;
    if (-l) {
      push @SymLinks, $namey;
    }
  }
  find \&inlineFind, $reparams->{recurseDir};
  $reparams->{Links} = \@SymLinks;
  $reparams->{numoLinks} = scalar(@SymLinks);
  return;
}