perl -MScalar::Util=readonly -le '*f = \"foo"; print readonly($f)'
8388608