gistfile1.pl

use v5.16;
use strict;
use warnings;

state $f = do {
  open my $f, '>:utf8', 'delme.tmp';
  $f;
};

print $f "" if 0;

say $f "test"; 

# The last line fails under v5.16.0 MSWin32-x86-multi-thread
# "Can't use an undefined value as a symbol reference at ..."
# It works if the `print $f "" if 0;` is removed or `if 1;`.