my $strict_refs = not eval { no warnings; ${'var'}; 1 };
my $strict_subs = not eval 'no warnings; ThisDoesNotExist; 1';
my $strict_vars = not eval 'no warnings; $ThisDoesNotExist; 1';