First Read This then for the LOVE OF GOD read perlstyle.

There a couple of things you could try here. Trapping file open and closes would be the frist thing. You might also want to take a look at using sysopen().