perl -MO=Terse -e 'print;exit' LISTOP
(0x8133d68) leave [1]
    OP (0x8126628) enter
    COP (0x8133d28) nextstate
    LISTOP (0x8133e30) print
        OP (0x8133e68) pushmark
        UNOP (0x8133ce8) null [15]
            SVOP (0x8133f40) gvsv GV (0x811e120) *_
    COP (0x8133d90) nextstate
    OP (0x8133c98) exit