Select Code to Download

$ perl -e "use Devel::Peek; use strict; BEGIN{*main::foo=\@main::foo; 
+Dump(\@main::foo)};  print @foo; "
SV = IV(0xac90b0) at 0xac90b4
...
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)

$ perl -e "use Devel::Peek; use strict; BEGIN{*main::foo=\@main::foo; 
+Dump(*main::foo)};  print @foo; "
SV = PVGV(0xa6ad1c) at 0x99b984
...
    FLAGS = 0x2a
    EGV = 0x99b994      "foo"

360 #define SVprv_PCS_IMPORTED  SVp_SCREAM  /* RV is a proxy for a con
+stant
361                                        subroutine in another packa
+ge. Set the
362                                        GvIMPORTED_CV_on() if it ne
+eds to be
363                                        expanded to a real GV */