&Internals::SvREADONLY(\undef, 0); undef = 1;
undef and print "OK";