{
   my $fhWrapper = Symbol::gensym;
   tie(local *$fhWrapper, 'MyWrapper', $fhWrapper, $fh);
   ...
}