$ perl -MDP -we'open DH,$0;DDump*DH'
SV = PVGV(0x11d7dc0) at 0x76a5e0
  REFCNT = 3
  FLAGS = (MULTI)
  NAME = "DH"
  NAMELEN = 2
  GvSTASH = 0x74af48    "main"
  GP = 0x771bc0
    SV = 0x0
    REFCNT = 1
    IO = 0x76a5f8
    FORM = 0x0
    AV = 0x0
    HV = 0x0
    CV = 0x0
    CVGEN = 0x0
    LINE = 1
    FILE = "-e"
    FLAGS = 0x2
    EGV = 0x76a5e0      "DH"
$ perl -MDP -we'opendir DH,".";DDump*DH'
SV = PVGV(0x11d7e00) at 0x76a5f0
  REFCNT = 3
  FLAGS = (MULTI)
  NAME = "DH"
  NAMELEN = 2
  GvSTASH = 0x74af48    "main"
  GP = 0x771b30
    SV = 0x0
    REFCNT = 1
    IO = 0x76a620
    FORM = 0x0
    AV = 0x0
    HV = 0x0
    CV = 0x0
    CVGEN = 0x0
    LINE = 1
    FILE = "-e"
    FLAGS = 0x2
    EGV = 0x76a5f0      "DH"