perl -e '$a = \"constant"; bless($a, "Test");'
Modification of a read-only value attempted at -e line 1.