in reply to Recursive Grep

I believe you are missing a call to close on the filehandle.

In Section Cool Uses for Perl