Select Code to Download

> perl -w -Mstrict -e"my%f;++@f{(1,2)};die'ack'if foo eq 'bar'"
Bareword "foo" not allowed while "strict subs" in use at -e line 1.
...
> perl -w -Mstrict -e"my%f;++@f{1..2};die'ack'if foo eq 'bar'"

>

> perl -w -MO=Terse -Mstrict -e"my%f;++@f{1..2};die'ack'if foo eq 'bar
+'"
LISTOP (0x182015c) leave [1]
...
                SVOP (0x3c4018) const  SPECIAL #0 Nullsv

>

.