in reply to Re: Recursive Grep
in thread Recursive Grep

Good catch. The following line was left off just before the subroutine is declared: 
find (\&Wanted, $dir);

[download]

In Section Cool Uses for Perl