Or if barewords can no longer be used as a file handles, you could pre-declare them using

use Symbol qw( gensym );

sub FOO { state $fh = gensym(); $fh }

open(FOO, ...)
[download]