$ perl -ce'use strict; sub message; message = "foo";'
Can't modify non-lvalue subroutine call in scalar assignment at -e line 1, near ""foo";"
-e had compilation errors.