Select Code to Download

$fh = IV(0x933914c) at 0x9339150
  REFCNT = 1
...
      FILE = "/home/eric/usr/perlbrew/perls/perl-5.12.2/lib/5.12.2/Fil
+e/Temp.pm"
      FLAGS = 0x0
      EGV = 0x938abe8   "$fh"

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