$ perl -MO=Terse -e 'print "foo!\n"'
LISTOP (0x10122248) leave [1]
    OP (0x10033b50) enter
    COP (0x100253d8) nextstate
    LISTOP (0x10122220) print
        OP (0x1002fcf0) pushmark
        SVOP (0x100252e0) const [2] PV (0x10010f90) "foo!\n"
-e syntax OK