first of all find() executes getpm() for every file in $fpath. exit() terminates the perlscript! so you're terminating your perlscript after the first file in $fpath (which isn't readme.txt)

after eliminating exit(0) you'll see a lot of 'File not Found's after executing. i don't think that you'll like it this way :) you should only print something out, if the file matches.

finally, the subrouting which find() needs to examine the searchpath, gets the filename assigned to $_ which makes $File::Find::name obsolete.

so try something like this:

 
find(\&getpm, "$fpath");
sub getpm
{
    return unless /readme\.txt/;
    print $_ . "\n";
}
[download]