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

% perl -e 'local $$=1'

%