in reply to use strict and bareword filehandle

According to perldoc open:
if FILEHANDLE is an expression, its value is the real filehandle. (This is considered a symbolic reference, so use strict "refs" should not be in effect.)