open my $fh, '>', 'fred.junk'; 

Dump( $fh );;
SV = RV(0x3c728b0) at 0x3c728a0
  REFCNT = 1
  FLAGS = (PADMY,ROK)
  RV = 0x3c72950
  SV = PVGV(0x3c82d38) at 0x3c72950
    REFCNT = 1
    FLAGS = ()
    NAME = "$fh"
    NAMELEN = 3
    GvSTASH = 0x36bde0  "main"
    GP = 0x3c93298
      SV = 0x0
      REFCNT = 1
      IO = 0x3c72168
      FORM = 0x0
      AV = 0x0
      HV = 0x0
      CV = 0x0
      CVGEN = 0x0
      LINE = 1
      FILE = "(eval 18)"
      FLAGS = 0x0
      EGV = 0x3c72950   "$fh"