#!/usr/bin/perl -w

use File::Find;

open( FH, "/etc/motd" ) || die "cannot open file ($!)\n";
$INO = (lstat(FH))[1];
close( FH );

find( \&wanted, '/etc' );

sub wanted {
   my( $ino ) = (lstat($_))[1];
   if( $ino == $INO ) {
      print $File::Find::name, "\n";
   }
}