#!/usr/local/bin/perl5.8.0

use File::Find;

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

$count = 0;

sub wanted;


# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, 'find', '.');

print "$count found\n";
exit;

sub wanted {
    /^recipe.*\z/s &&
    print("$name\n") && $count++;
}