$ perl -ce'use strict; sub message :lvalue; message = "foo";' -e syntax OK