Perhaps it would be better to "mock" the filehandle by commandeering the open & close methods.

I'm currently using IO::File. I could subclass it, do some singleton whiz-bang stuff and keep track of opens vs closes there.

I just figured there might be a special Perl variable that would tell me how many files had been opened - something I could check for changes over time.