----- unneeded portion of output not shown -----
    Package aaa
      &do_a             s14
    Package bbb
      &do_b             s24
    Package ccc
      &do_c             s25
  Subroutine (main)
    Package (lexical)
      $var              i10, i21, i34, 27
    Package aaa
      &do_a             &23
    Package bbb
      &do_b             &24
    Package ccc
      &do_c             &25
  Subroutine aaa::do_a
    Package (lexical)
      $var              13
  Subroutine bbb::do_b
    Package (lexical)
      $var              37
  Subroutine ccc::do_c
    Package (lexical)
      $var              48
mytest.pl syntax OK