perl -e 'print $^H'
perl -e 'use strict; print $^H'
perl -e 'use strict; no strict; print $^H'
perl -e 'use strict; {no strict; print $^H}'
perl -e 'use strict; BEGIN {no strict; print $^H}'
perl -e 'use strict; {no strict; BEGIN{ print $^H}}'