[lms] perl, print() on closed filehandle FOUT