Curious about what links to what? Try this little snippet to find out what files are commonly referenced. The output consists of lines of things that are linked or symlinked.
use File::Find;
my %results;
find sub {
if (-l) { # it's a symlink
my ($dev, $ino) = lstat _; # reuse info from -l
push @{$results{"$dev $ino"}}, $File::Find::name;
if (-e) { # that points somewhere else
my ($dev, $ino) = stat _; # reuse info from -e
push @{$results{"$dev $ino"}}, "symlink:$File::Find::name";
}
} else {
my ($dev, $ino) = stat;
push @{$results{"$dev $ino"}}, $File::Find::name;
}
}, qw(/bin /usr/bin /usr/sbin); # change this to "/" to do the whole d
+isk
while (my($k, $v) = each %results) {
my @links = @$v;
next if @links < 2;
print "@links\n";
}