use strict;
sub FH () { open my $fh, '>', '/tmp/testfile.txt'; $fh }
eval q{ print FH "Hello world!\n"; } or warn "Doesn't work - $@";
print {FH} "This works";