sub mysub {
 my $fh = \do { local *FILE};
 open($fh, ">myfile")...
...
}


##</code><code>##

sub mysub {
 open(my $fh, ">myfile")...
...
}