use strict;

my ($dir,$file) = @ARGV;
my ($finode,$fnlinks) = (lstat($file))[1,3];

$/ = chr(0);
my @hardlinks = `find $dir -inum $finode -print0`;

chomp @hardlinks; # get rid of null-byte terminations

printf "found %d of %d links for %s (inode %d) in %s:\n",
         scalar @hardlinks, $fnlinks, $file, $finode, $dir;

print join("\n",@hardlinks),"\n";