(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(perl-socket)} spids:[6])]
      spids: [6]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:_pkgreal) op:Equal rhs:{(Socket)} spids:[9])]
      spids: [9]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(2.024)} spids:[12])]
      spids: [12]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgrel) op:Equal rhs:{(2)} spids:[15])]
      spids: [15]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:pkgdesc)
          op: Equal
          rhs: {(DQ ('networking constants and support functions'))}
          spids: [18]
        )
      ]
      spids: [18]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:url)
          op: Equal
          rhs: {(DQ ('http://search.cpan.org/dist/Socket/'))}
          spids: [23]
        )
      ]
      spids: [23]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (all))} spids:[28])]
      spids: [28]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:license)
          op: Equal
          rhs: {(DQ ('GPL PerlArtistic'))}
          spids: [33]
        )
      ]
      spids: [33]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:cpandepends) op:Equal rhs:{(DQ )} spids:[38])]
      spids: [38]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:cpanmakedepends) op:Equal rhs:{(DQ ('   '))} spids:[42])]
      spids: [42]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:depends)
          op: Equal
          rhs: {(DQ ($ VSub_Name '$cpandepends'))}
          spids: [47]
        )
      ]
      spids: [47]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:makedepends)
          op: Equal
          rhs: {(DQ ('perl-dev ') ($ VSub_Name '$cpanmakedepends'))}
          spids: [52]
        )
      ]
      spids: [52]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:subpackages)
          op: Equal
          rhs: {(DQ ($ VSub_Name '$pkgname') (-doc))}
          spids: [58]
        )
      ]
      spids: [58]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:source)
          op: Equal
          rhs: 
            {
              (DQ ('http://search.cpan.org/CPAN/authors/id/P/PE/PEVANS/') ($ VSub_Name '$_pkgreal') (-) 
                ($ VSub_Name '$pkgver') (.tar.gz)
              )
            }
          spids: [64]
        )
      ]
      spids: [64]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:builddir)
          op: Equal
          rhs: {(DQ ($ VSub_Name '$srcdir') (/) ($ VSub_Name '$_pkgreal') (-) ($ VSub_Name '$pkgver'))}
          spids: [73]
        )
      ]
      spids: [73]
    )
    (FuncDef
      name: prepare
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name '$builddir'))})
            (C {(export)} 
              {(Lit_VarLike 'CFLAGS=') 
                (CommandSubPart
                  command_list: 
                    (CommandList
                      children: [(C {(perl)} {(-MConfig)} {(-E)} {(SQ <'say $Config{ccflags}'>)})]
                    )
                  left_token: <Left_CommandSub '$('>
                  spids: [100 110]
                )
              }
            )
            (SimpleCommand
              words: [{(perl)} {(Makefile.PL)} {(Lit_VarLike 'INSTALLDIRS=') (vendor)}]
              more_env: [(env_pair name:PERL_MM_USE_DEFAULT val:{(1)} spids:[113])]
            )
          ]
          spids: [87]
        )
      spids: [83 86]
    )
    (FuncDef
      name: build
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name '$builddir'))})
            (C {(export)} 
              {(Lit_VarLike 'CFLAGS=') 
                (CommandSubPart
                  command_list: 
                    (CommandList
                      children: [(C {(perl)} {(-MConfig)} {(-E)} {(SQ <'say $Config{ccflags}'>)})]
                    )
                  left_token: <Left_CommandSub '$('>
                  spids: [143 153]
                )
              }
            )
            (C {(make)})
          ]
          spids: [130]
        )
      spids: [126 129]
    )
    (FuncDef
      name: package
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name '$builddir'))})
            (AndOr
              children: [
                (C {(make)} {(Lit_VarLike 'DESTDIR=') (DQ ($ VSub_Name '$pkgdir'))} {(install)})
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
            (C {(find)} {(DQ ($ VSub_Name '$pkgdir'))} 
              {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} {(-name)} {(perllocal.pod)} {(-o)} {(-name)} {(.packlist)} 
              {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)} {(-delete)}
            )
          ]
          spids: [172]
        )
      spids: [168 171]
    )
    (FuncDef
      name: doc
      body: 
        (BraceGroup
          children: [
            (C {(default_doc)})
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:replaces)
                  op: Equal
                  rhs: {(DQ (perl-doc))}
                  spids: [233]
                )
              ]
              spids: [233]
            )
          ]
          spids: [227]
        )
      spids: [223 226]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:md5sums)
          op: Equal
          rhs: {(DQ ('63e3c6a92e9d21ecb2d0f105a2f6be5a  Socket-2.024.tar.gz'))}
          spids: [241]
        )
      ]
      spids: [241]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha256sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
'38d58dcd84ca480615ba5f45a82b97b3c4cc3b7e7b27323e68adbe6daf455e12  Socket-2.024.tar.gz'
                )
              )
            }
          spids: [246]
        )
      ]
      spids: [246]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha512sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
'8a7b3a851e81459ca32382eecf517d456c7355998b9be7f15f753ce4b7c7d0fa9e95078d9ecb2beb074434ba674ef0014ec43380dbcc7c257b841a1ee20f0743  Socket-2.024.tar.gz'
                )
              )
            }
          spids: [251]
        )
      ]
      spids: [251]
    )
  ]
)