As mentioned above, this isn't a Perl problem.

But you shood look for the lsof tool. It'll do exactly what you want (it tells you what processes have what filehandles open and a whole lot more).