fixes open() leaks filehandles (see Special Literals in perldata)