$ perl -le " undef = 1; "
Modification of a read-only value attempted at -e line 1.