> perl -wle "sub foo:lvalue {}; eval { foo()='baz' }"