$ perl -we 'undef=0' Modification of a read-only value attempted at -e line 1. $