use v5.10;
use strict;

BEGIN {
	say "1";
	say "strict refs are enabled" if $^H & 0x0002;
	say "strict subs are enabled" if $^H & 0x0200;
	say "strict vars are enabled" if $^H & 0x0400;
};

no strict 'refs';

BEGIN {
	say "2";
	say "strict refs are enabled" if $^H & 0x0002;
	say "strict subs are enabled" if $^H & 0x0200;
	say "strict vars are enabled" if $^H & 0x0400;
};

no strict;
use strict 'subs';

BEGIN {
	say "3";
	say "strict refs are enabled" if $^H & 0x0002;
	say "strict subs are enabled" if $^H & 0x0200;
	say "strict vars are enabled" if $^H & 0x0400;
};