#!/usr/bin/perl -w

use strict;
use File::Find;

use vars qw(@FILES);

find(\&getpm, '.');

unless(@FILES) {
  print "File not Found\n";
  exit;
}

print "$_\n" for @FILES;

sub getpm {
  push @FILES, $File::Find::name
    if -f && $_ eq 'readme.txt';
};