DB<121> use Cwd

  DB<122> use Devel::Peek

  DB<123> Dump \&getcwd if defined &getcwd
SV = IV(0x3458550) at 0x3458560
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0xdc79e0
  SV = PVCV(0xe02188) at 0xdc79e0
    REFCNT = 11
    FLAGS = (DYNFILE,HASEVAL)
    COMP_STASH = 0xd54290       "Cwd"                  # PACKAGE
    START = 0x2985788 ===> 1
    ROOT = 0x29ade90
    GVGV::GV = 0xdc7b48 "Cwd" :: "_win32_cwd"          # NAME
    FILE = "c:/Perl_524/lib/Cwd.pm"                    # FILE
    DEPTH = 0
    FLAGS = 0x5000
    OUTSIDE_SEQ = 633
    PADLIST = 0x29d5aa8
    PADNAME = 0x29bb378(0x29ca0a8) PAD = 0xdc79f8(0x29c8968)
       1. 0xdc7a28<1> (634,635) "$pwd"
    OUTSIDE = 0xd540e0 (UNIQUE)

  DB<124>