>  perl -MO=Terse -e 'take(1+2)'
LISTOP (0x976cdf0) leave [1] 
    OP (0x9777078) enter 
    COP (0x97542e8) nextstate 
    UNOP (0x975fbb0) entersub [3] 
        UNOP (0x975c8b8) null [142] 
            OP (0x9754818) pushmark 
            SVOP (0x975ca50) const [4] IV (0x9758ea8) 3 
            UNOP (0x975c878) null [17] 
                PADOP (0x975c938) gv  GV (0x9758eb8) *take 
-e syntax OK

##</code><code>##

 perl -MO=Deparse -e 'take(1+2)'
take(3);