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"

##</code><code>##

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"

##</code><code>##

sub cmp { $_[0] <=> $_[1] };;

Dump( \&cmp );;
SV = RV(0x2762e8) at 0x2762d8
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x3c72858
  SV = PVCV(0x3c5a028) at 0x3c72858
    REFCNT = 2
    FLAGS = ()
    COMP_STASH = 0x36bde0       "main"
    START = 0x3d0ef48 ===> 0
    ROOT = 0x3d0eed0
    GVGV::GV = 0x3c721f8        "main" :: "cmp"
    FILE = "(eval 9)"
    DEPTH = 0
    FLAGS = 0x0
    OUTSIDE_SEQ = 1935
    PADLIST = 0x3c72840
    PADNAME = 0x3c72828(0x3cf7358) PAD = 0x3c72210(0x3cf7618)
    OUTSIDE = 0x36beb8 (UNIQUE)