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.