Select Code to Download

perl -Mstrict -we 'eval q(x=3) or die "err $@"'

err Can't modify constant item in scalar assignment at (eval 1) line 1
+, at EOF
Bareword "x" not allowed while "strict subs" in use at (eval 1) line 1
+.