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