#!/usr/bin/perl

use strict;
use warnings;

my ( $path, $file,  $inode, $nlinks );

( $path, $file ) = @ARGV;
die "Usage: $0  search/path  data.file\n"
    unless ( -d $path and -f $file );

( $inode, $nlinks ) = ( stat _ )[1,3];
die "$file has no hard links\n" if $nlinks == 1;



.....