$ perl -ce'use strict; message = "foo";'
Can't modify constant item in scalar assignment at -e line 1, near ""foo";"
Bareword "message" not allowed while "strict subs" in use at -e line 1.
-e had compilation errors.