sub f {
   print FH ...;
}

open FH, '>', ...;
f();