opendir my $dir, '.'; 

Dump( $dir );;
SV = RV(0x2762e8) at 0x2762d8
  REFCNT = 1
  FLAGS = (PADMY,ROK)
  RV = 0x3c721e0
  SV = PVGV(0x3c82d38) at 0x3c721e0
    REFCNT = 1
    FLAGS = ()
    NAME = "$dir"
    NAMELEN = 4
    GvSTASH = 0x36bde0  "main"
    GP = 0x3c93298
      SV = 0x0
      REFCNT = 1
      IO = 0x3c72198
      FORM = 0x0
      AV = 0x0
      HV = 0x0
      CV = 0x0
      CVGEN = 0x0
      LINE = 1
      FILE = "(eval 22)"
      FLAGS = 0x0
      EGV = 0x3c721e0   "$dir"